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1. FEJEZET 
ELŐSZÓ 


A Commodore 64 naponta több ezernyi barátot szerez magának az egész világon. Ez a kis 
számítógépes rendszer nemcsak korlátlan lehetőséget biztosít a hobby-programozók számá- 
ra, hanem minden további nélkül alkalmazható kisebb kereskedelmi, adminisztrációs és 
tudományos műszaki feladatok megoldásában is. Éppen ebben mutatkozik meg a , Tippek 
és Trükkök" c. könyv hasznossága. A Klaus Gerits, Lothar Englisch és Michael Angerhausen 
szerzői együttesünk ismét mélyrehatolt a lehetséges trükkök tanulmányozásában, miközben 
számtalan tippet adnak a C 64-es mind jobb kihasználásához. Az említett szerzők célkitűzése 
az volt, hogy példák és mintaprogramok alapján ismertessék a Commodore 64 alkalmazási 
lehetőségeit. A könyv nagy segítséget nyújt abban, hogy a Commodore 64 adottságait 
messzemenően kihasználhassuk. K 

Mindhárom szerző úgy ismeri a Commodore 64-est, mint a tenyerét. Klaus Gerits nevéhez 
fűződik a 64 IEC-BUS és a MAXI 64 kifejlesztése, Lothar Englisch pedig a PROFI-MON 64 és 
a PROFI-ASS 64 közismert programok alkotója. Mindketten behatóan ismerik a C 64-es 
műszaki és rendszertulajdonságait. Eredményeik közé tartozik a USER-port tervezetének 
kidolgozása és a CP/M-modul beható leírása, a minden részletre kiterjedően dokumentált 
BIOS-listával együtt. Michael Angerhausen -— az adatbank-szakértőnk — a file-kezelés kap- 
csán foglalkozott behatóan a Commodore 64-essel. Többek között azt is bemutatja, hogy 
milyen eljárással lehet a BASIC 2.0. változat alatt a relatív file-okat felépíteni. 

Néhány hónap alatt elfogyott a , Tippek és Trükkök" c. könyv első kiadása. Az új kiadást 
megelőzően a szerzők természetesen megragadták az alkalmat a közkedveltté és keresetté 
vált könyv átdolgozására és egyes részeinek kibővítésére. Olvasóink ezt a második, átdolgo- 
zott kiadást tarthatják a kezükben. 

A ,Tippek és Trükkök"-ben foglalt összes gépi programhoz és rutinhoz egy-egy BASIC 
betöltő programot (BASIC-Loadert) is mellékeltünk. Ezeket az egyszerű BASIC programokat 
azokis könnyen betölthetik, akik gépi kódban nem tudnak programozni és így mindenki gond 
nélkül használhatja a gépi nyelven írt programokat. 

A mindenkori BASIC betöltő ellenőrzi a gépi kódú programot, és kiszűri az adatbevitelből 
eredő hibákat. 

Jó szórakozást kívánunk a , Tippek és Trükkök" c. könyvben foglalt feladatokhoz! 


Düsseldorf, 1983. augusztus 
A Szerzők 


2. FEJEZET 
GRAFIKA HALADÓKNAK 


2.1 Grafika a Commodore 64-esen 


A Commodore 64-es személyi számítógép tulajdonosai előbb-utóbb élni szeretnének a gépbe 
épített grafikus ábrázolási lehetőségekkel. A gép kézikönyve igen röviden foglalkozik a 
grafika-programozással. 

A szerzők éppen ezért fontosnak tartották a grafikus ábrázolással kapcsolatos lehetőségek 
és sajátságok részletesebb ismertetését. 

Mindenekelőtt különbséget kell tennünk a Commodore billentyűzetén keresztül elérhető 
karakteres grafika, a nagyfelbontású ábrázolás, ill. a sprite-grafika között. A karakteres-, 
il. a nagyfelbontású színes grafika kezelésére több személyi számítógép képes, a sprite-ok 
ábrázolási. lehetősége azonban kifejezetten a Commodore 64-es által kínált újdonság. 
A sprite-okat, melyek fantasztikus játékokra, kalandos történetek megjelenítésére, , Ür"-játé- 
kokra vagy támadó jellegű harci cselekmények szimulálására alkalmasak, eddig csak a 
játékautomaták kapcsán ismertük. A Commodore 64-es a sprite-grafika terén mindent tud, 
amit a játékautomaták valaha is tudtak! 

Az Olvasó a könyv következő oldalain a három különböző grafikus ábrázolási lehetőséggel 
ismerkedhet meg. Természetesen az elméletet mindig szemléltető példákkal támasztjuk alá. 


2.1.1 A karakteres grafika 


A Commodore 64-esen ez a legegyszerűbb és legkényelmesebb grafikus ábrázolási mód, 
mert a grafikus karakterek megjelenítéséhez semmiféle tárcím kiszámítása nem szükséges, 
és nem kell a tár különböző rekeszeire figyelnünk. A megjelenítéshez mindig két billentyűt kell 
használnunk. A klaviatúrát alaposabban megvizsgálva látjuk, hogy minden egyes billentyűn 
két grafikus jel szerepel. Ha lenyomva tartjuk a C— (Commodore) billentyűt, és ezzel egyidejű- 
leg leütünk egy tetszőleges billentyűt, a képernyőn megjelenik a billentyű bal oldalán látható 
grafikus karakter. ; 
Ha programot írunk, a grafikus karaktereket a PRINT vagy az INPUT utasításokban helyez- 
hetjük el. Ha például beírjuk a 


100 PRINT" 


utasítást, majd lenyomjuk egyidejűleg a C— és az A billentyűt, az idézőjel után egy olyan 
grafikus karakter jelenik meg, amelyet felhasználhatunk pl. egy keret bal felső sarkaként. 
Folytassuk a 1009-as sort a következőképpen: lenyomjuk 38-szor a SHIFT és ezzel egyidejűleg 
a 4 billentyűt. (A billentyű jobb oldalán látható grafikus karaktert a SHIFT és az adott billentyű 
egyidejű leütésével jeleníthetjük meg a képernyőn.) Ha most ismét leütjük a C— ill. az 
S billentyűt, megkapjuk a keret jobb felső sarkát. Az utasítást egy idézőjellel, egy pontosvesz- 
szővel, végül a RETURN leütésével fejezzük be. A teljes keret előállításához még két sort kell 
begépelnünk. 


110 PRINT" 


Most üssük le 38-szor a SPACE billentyűt, majd ismét egy idézőjellel, pontosvesszővel, végül 
a RETURN leütésével fejezzük be a 110-es sort. 
Az utolsó sor 


120 PRINT" 


majd ezután egyszer nyomjuk le a C- és a Z billentyűt egyidejűleg, majd 38-szor a SHIFT-et 
és a -ot, s végül egyszer a C— és az X-et, s természetesen a RETURN leütésével fejezzük 
be a sort. Ezzel készen van a teljes keretet kirajzoló, 3 sorból álló program. Egészítsük ki az 
elkészült programot az alábbiakkal: 


8 REM ttit PI, tik 

$.ek 

et 

99 PRINT CHR$(147)33 REM A KEPERNYO TORLESE 

188 PRINT " ———— 


14186 PRINT " be 
1988 PRINT EE JI 
138 A$2" al 


135 REM A$5:38 URES KARAKTER 

148 B$2" tttx EZ A SOR KITOLTI A KERETET $tkk " 
158 PRINT CHR$C19) 

160 PRINT CHR$(17):CHR$(29)IA$I 

170 PRINT CHRS(19)r 

188 PRINT CHR$(17):CHR$(P9)I!B$I 

1908 FOR Jaj TO 10001 NEXT 

200 GOTOI5B 


Az ilyen keretek közkedveltek a kereskedelmi programokban, ugyanis áttekinthetővé teszik 
a képernyőt. 

A grafikus karakterek megjelenítésére van egy másik lehetőség is. A programot a CHR$ 
függvény felhasználásával is megírhatjuk, ha ismerjük a karakterek képernyőkódját: 


0 REM tits P2, $ttátit 


109 A1$-CHR$(176) : AZSZCHR$ (174) 
101 REM A BAL ES A JOBB FELSO SAROK 
102 AS$ZCHR$(1753) : A4$5-CHR$ (189) 
1035 REM A BAL ES A JOBB ALSO SAROK 
104 H1t:CHR$E(96) 

1805 REM A VIZSZINTES VONAL 

186 H2Z$ZCHR$ (125) 

107 REM A FUGGOLEGES VONAL. 

198 H3$zCHR$E(I2) 

199 REM AZ URES KARAKTER 

110 Zií$zAlt 

111 FOR IJIsi TO 38 

112 Z1$5Z1$tHI$ 

113 NEXT I 

114 Z1$zZ1$raA2t 

115 REM A KERET í. SORA 

116 22$:H2t 

117 FOR Izi TO 538 

118 Z2$5-2266H36 

119 NEXT I 

1298 7285:7266H2t 


0 


121 REM A KERET 2. BORA 
122 Z3$z-A3$ 

123 FOR Is1 TO 38 

124 Z3$5Z3$-4Hi$ 

125 NEXT I 

126 Z3$5Z3$--A4$ 

127 REMA KERET 3. SORA 
128 PRINT Z1$; 

129 PRINT Z2$; 

130 PRINT 23$; 


Ha lefuttatjuk ez utóbbi programot, azt tapasztaljuk, hogy a futás eredménye azonos az 
előzővel, előnye a könnyebb áttekinthetőség, és az egyszerű változtathatóság. 


2.1.2 A sprlte-ok kezelése 


A Commodore 64-es jóval többre képes, mint a fentiekben ismertetett karakteres rajzolás. 
Ahogy azt már a korábbiakban említettük, grafikus lehetőségeit tekintve a C 64-es egyenérté- 
kű a nagy játékautomatákkal. Ebben a részben a teljesség igénye nélkül bemutatjuk a 
sprite-ok kezelésének programozási alapelveit. 

A Commodore 64-es egyszerre nyolc különböző kis grafikus ábra — sprite — önálló kezelésére 
képes. A sprite-ok mindegyikét egyszerű POKE utasításokkal egymástól függetlenül mozgat- 
hatjuk, törölhetjük, egymással ütköztethetjük. Ez a felsorolás még korántsem meríti ki az 
összes lehetőséget. A programozónak természetesen ismernie kell a figurák mozgatását 
vezérlő tárcímeket, és azok jelentését. ,A C 64 belső felépítése" című, ugyancsak a DATA 
BECKER cég által kiadott könyv a Commodore 64-es összes fontos tárcímét ismerteti. Itt most 
csak azokra térünk ki, amelyek a sprite-ok kezelésében szerepet játszanak. 

A sprite-okra vonatkozó rekeszek az 53248-as címtől az 54271-es tárcímig terjedő tárterületen 
helyezkednek el. Ez a tárterület a gépbe beépített VIC 6569-es videovezérlő (video-controller) 
kommunikációs területe. Ha a képernyőn egy sprite-ot szeretnénk megjeleníteni, a kívánt 
képernyőpozíciót előzetesen közölnünk kell a VIC-kel. A kommunikációs terület egymást 
követő rekeszei egy-egy sprite helyzetének vízszintes, ill. függőleges koordinátáját határozzák 
meg. 

Például a 


POKE 53248,160:POKE 53249,120 


utasításokkal egy sprite-ot a képernyő (160,120) koordinátájú pontjába helyezhetünk. A nyolc 
lehetséges Sprite vízszintes, ill. függőleges koordinátáit az 53248-as tárcímtől kezdve rendre 
két-két cím tartalmazza. Ha a VIC regisztereinek számozását nullától kezdjük, az egyes 
sprite-hoz a 0 és 1, a kettes sprite-hoz a 2 és 3 számú rekeszek tartoznak stb. 


" Eredeti címe: ,64 Intern" (Data Becker, 1983). 
Megjelenik magyarul a NOVOTRADE RT. kiadásában, 1985-ben. (A szerk.) 


2.2 Háromdimenziós grafika — a 35 GRAFIKA BASIC prog- 
ram 


Mindjárt a könyv elején ismerkedjünk meg egy olyan BASIC programmal, amely nagyfelbontá- 
sú, színes grafikával háromdimenziós ábrákat jelenít meg a képernyőn. A program a Super- 
graphik 64 utasításait használja, de a szükséges változtatásokat közöljük arra az esetre is, 
ha az Olvasó nem rendelkezik a Supergraphik 64-gyel. 
A P.5-ös program a 100-as programsorban megadott függvényt ábrázolja. Az ábrázolás 
háromféleképpen történhet: 
— derékszögű (Descartes-féle) koordináta-rendszerben, mintha milliméterpapírra rajzol- 

nánk; 
— polár koordináta-rendszerben (a sugár és a szög megadásával); 
-— három dimenzióban. 
Az utolsó - egyben a legérdekesebb — ábrázolásmódhoz a függvényt el kel! forgatni a 
függőleges Y-tengely körül. A kiszámítandó pontok nagy száma miatt ez az ábrázolási mód 
időigényes. A függvény képének paramétereit mindhárom esetben tetszőlegesen adhatjuk 
meg. 
Érdemes alaposan tanulmányozni a program működési elvét! 
A program indításakor választhatunk a háromféle ábrázolási mód közül. Ha a derékszögű 
vagy a polár koordináta-rendszert választottuk, a program bekéri a lépésközt (260. sor). Ez 
az az érték, amellyel minden kiszámított pont után a vízszintes tengely paramétere növekszik. 
A 270. és a 280. sorban beolvassa az X- és az Y-tengely irányú nyújtási tényezőket. Ezzel 
meghatározhatjuk a tengelyek léptékviszonyát. Az első futtatásnál célszerű mindkét irányú 
nyújtásra egyet beírni. Hasonlóan, a vízszintes és függőleges irányú eltolás értékeiként 
(370-410. sor) először célszerű nullát beírni. A 430. sorban a program átkapcsol a nagyfel- 
bontású grafikus üzemmódra. A 450-560. sorok rajzolják ki a koordináta-rendszert és a 
skálabeosztást, a koordináta-rendszer kiválasztásától függően a 680—-790. sorok pedig kiraj- 
zolják a polár koordináta-rendszert, ill. a 820-970. sorok a derékszögű koordináta-rendszert. 
Az 1010. sortól kezdődik a háromdimenziós ábrázolás. Itt is megadhatjuk az ábrázolás 
léptékét és helyét; először célszerű 20 vagy 90 értéket beírni. Háromdimenziós ábrázoláshoz 
a 100. sorban a program több tízezer függvényérték-számítást végez, s ehhez a függvény 
típusától függően általában igen hosszú (fél órától több óráig terjedő) időre van szükség. 
Futtassuk le különböző függvényekkel a programot; érdemes például kipróbálni az alábbia- 
kat: 

0 REM dtátátát P3.  dtdédtat 

4 MG 

2: 

100 DEF FN R(0)-COS(2k0) 4COS ( (OBB) /16) 


199 DEF FN R(8)SOR(ABS(.54(16-OAR0) ) 117/ (244) 
109 DEF FN R(0)COS(440) 429/ (DxrO-t-5) 


Ha az Olvasó nem rendelkezik a , Supergraphik 64" segédprogrammal, az alábbi változtatá- 
sokat és kiegészítéseket kell megtenni: 


0 REM dtddtát PA. 363é3tát 

1: 

e szk 

5 POKE 56,32:CLR 

430 FOR A1-8192 TO 16191:POKE A1,O:NEXT:GOSUB 2000 
470 FOR Ai1-9g TO 199:AX-F:AY-A1:GOSUB 3909:NEXT 
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480 FOR Aí-g TO 319:AX-AL:AY-E: GOSUB 3000:NEXT 
599 FOR A1-E-1i TO E41i:AX-XR:AY-A1:GOSUB 30009:NEXT 
529 FOR A1-E-1 TO E415:AX-XL : AY-A1:GOSUB 3900:NEXT 
549 FOR A1-F-1 TO Ft1zAX-A1:AYZYD:GOSUB 3090:NEXT 
568 FOR A1-F-—-1 TO F-1:AX-A1:AY-YU: GOSUB 3000:NEXT 
778 AX-XX;:AYZYY:BOSUB 35900 

900 AX-S:AY-YY: 6O0SUB 34000 

1699 AX-X1I:AY-Y1:GOSUB 35009 s. 
1620 GOSUB 4990: RETURN 

2009 FOR A1-8192 TO 16191:POKE A1,O:NEXT 

28190 FOR A1-1924 TO 2923:POKE A1,16:NEXT 

2029 POKE 532486417,274-52:FPOKE 5532484t24,16t4t8 

20350 RETURN 

5899 O0Y—-SZOLINT (AY/B) 4 ( AYAND7) 

3919 0X-BtINT(AX/8) 

3020 MA-27 ( ( 7—AX ) AND7) — 

39350 AV-B1924OY-4HOX 

53940 POKE AV,PEEK (AV) OR MA: RETURN 

4000 FOR A1-Y1ti TO 199:AY-AL1:GOSUB 50999:RETURN 
59990 0Y-SZBREINT (AY/B) 4-(AY AND 7) 

5919 0X-BEINT(AX/B) 

5029 MA-257((7—-AX) AND 7) 

5959 AV-B197240Y-OX 

5049 POKE AV,PEEK(AV) AND (255-MA) :RETURN 


A grafikus függvények BASIC nyelvű programozásával a program lényegesen lassúbb lesz, 
mint a , Supergraphik 64" segédprogram alkalmazásával. 


B REM ttrt P35. $t5tt 

d Rn 

: ői 

18 PRINT "428 A SZAZAS SORBAN MEGHATAROZOTTII" 
20 PRINT " FUGGVENY GRAFIKUS ABRAZOLASAK" 
40 PRINT "MW í - DEREKSZOGU KOORDINATARENDSZERBEN" 
50 PRINT "8 2 - POLAR-KOORDINATARENDSZERBEN" 
60 PRINT "W 3 - HAROM DIMENZ IOBAN" 

78 INPUT "já VALASSZ: — 1 GMNBG" 5 PL 

1086 DEF FNR(A)-COS(A)1COS(2 AR) 4COS(5$A) 

210 IF PL:3 THEN 1810 

250 PRINT:PRINT 

268 INPUT "LEPESKOZ r"3IK 

270 INPUT "jgX-TENGELY NYUJTASI TENYEZOJE :")181 
2BO INPUT "1gY-TENGELY NYUJTASI TENYEZOJE n"182 
3786 PRINT "NELTOLAS AZ X-TENGELY MENTEN" 

388 INPUT "-138 ES 139 KOZE ESO SZAMERTEK "3C 
400 PRINT "WELTOLAS AZ Y-TENGELY MENTEN" 

418 INPUT "-98 ES 98 KOZE ESO SZAMERTEK "OD 
4309 !GCLEAR: GRAPHICS 1:!BCOL 15:!LCOL 6 

458 E-1IOO1D:F-1604C 

470 ILINE F,8 TO F,188 

480 ILINE 0,E TO 318,E 

498 FOR KR-F TO 319 STEP 194S1 

500 !LINE XR.E-1 TO XR,Et1 :NEXT 

518 FOR XL:F TO 0 STEP-19ES1 

520 ILINE XL,E-1 TO XL.E$1 :NEXT 

538 FOR YD-E TO 199 STEP 15452 

540 ILINE F-1,YD TO F$1,YD tNEXT 

558 FOR YUzZE TO 8 STEP -15158 

580 ILINE F-1,YU TO Ft1,YU :NEXT 

580 IF PL-1 THEN 820 

618 REM POLAR-KORD. PONT 

698 RD-4/180:FOR 6-8 TO 380 STEP IK :T-GXARD 
718 XSFNR(T)SCOSK(TÖEYSFNRAT)SINKT) 

738 XXEXECIDESIÍHELYY-YECI5352)tE 
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740 IF XXXKO OR XXI319 THEN 780 

750 IF YY-O OR YY21993 THEN 780 

770 !DOT XX,YY 

780 NEXT 

780 END 

820 REM DEREKSZOGU KOORD. PONT 

830 FOR G:B TO 319 STEP IK 

840 X2z(G-FDJ/CI93S1):FYSFNR(X2 

850 YY5E-(Yx15352) 

860 IF YY-B OR YY YYD198 THEN 960 

9080 IDOT G.YY 

9860 NEXT 

870 EM 

1010 REM HAROM DINMENZIOS PONT 

1020 PRINT "CAMMI UGGOŐLEGES IRANYU LEPTEK" 

1030 INPUT " ONNNS-40 ES 40 KOZE ESO SZAM, JAVASOLT 20 [BRRN;NI 
10409 PRINT " JNMNNSFUGGOLEGES IRANYU FEKVES" 

18058 INPUT " jöNNNNE-50 ES 158 KOZE ESO SZAM, JAVASOLT 2ONBM" jN2 
1268 REM KONSTANSOK A/B.C,.D.E.F.6 

1288 A:1941B:2.25S51CsNIID5.O327t1E5s160!FsN21G621989 

1400 IGRAPHICSI :IGCLEAR:IBCOL 151!LCOL 6 

1418 FOR H2:-A TO A STEP B 

1928 AARINT(.518AR(A3A-HiH) ) 

1438 FOR BB2:-AA TO RA :CCABARCBBSBBtH6H) xD 

1446 D1SFNRCCC)IDDADÍSCEGOSUB 15820:NEXTINEXTIENO 

1450 GOTO 1450 

1520 X:BBtH/BIEIY2aDD-H/BtF 

1530 XIzINT(.BS5$XKIIYISINT(.98(B8-YI)tIF YCO OR Y2188 THEN RETURN 
1660 !DOT X1.Yt 

1620 ICLINE XI/Y6It6ti TO X1.,199!RETURN 
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2.3 Színes sávgrafikonok 


A következő gépi kódú program vízszintes vagy függőleges színes sávgrafikonok rajzolására 
készült. Hasznos lehet, ha görbéket (függvényeket) vagy számtáblázatokat szeretnénk szem- 
léletessé tenni. A grafikonokat képernyő-karakterekkel ábrázoljuk, így az ábrák mellett tetsző- 
leges feliratokat is elhelyezhetünk. (Nagyfelbontású grafikus képernyőre szöveget nem lehet 
írni.) 

A képernyőn vízszintesen 320, függőlegesen 200 pont áll rendelkezésre. A sávok elemi 
egységei egy karakter szélességűek, azaz nyolc vízszintes irányú képpontból állnak. A prog- 
ram a grafikon kirajzolását mindig az aktuális kurzorpozíción kezdi és minden függőleges, 
ill. vízszintes sávhoz megadható a magasság, ill. a hosszúság. A rutin felhasználásának 
megkönnyítésére egy-egy függőleges sáv kirajzolása után a kurzort automatikusan egy 
pozícióval jobbra mozgatjuk a képernyőn. 

A rutin hívása az alábbi, kibővített SYS utasítással történhet: 


SYS H, L, C vagy 
SYSV.L,C 


ahol a H és V a vízszintes, ill. függőleges grafikonok rutinjainak a kezdőcíme; L a grafikon 
hosszúsága (maximálisan 320), ill. magassága (maximum 200), C pedig a színkód (O-tól 
15-ig). 

A gépi kódú rutin listája: 


d REM tettX Ph. XIRAE 
4 


te 3 

100 : CgOD -OPT Pi 

119 : Cg00 ; SZINES SAVGRAFIKON 
129 : CO00o $ HPLOT ES VPLOT 
139 : COO GETCOR z  $B7EB 
140 : COO SCROUT z $E716 
159 : COOG LBYT z $14 

160 : CO0OD HBYT Ww" ALBYT 9.3 
170 : CgOG CURCOL z $D3 

189 : COD SETCOL z $EA24 
199 : COOG SETCHAR - $EAIE 
20909 : COO ILLOUAN -  $B248 
205 : COO CHKCOM z — $AEFD 
210 : CO0NG CODE z $22 

2209 : COO TMP a: CODE 41 
230 : COO XREG m TMP 41 
235 : CO00G TMP1 z XREG 4 1 
240 : COG0 FARB z $F3 ; MUTATO A SZIN-RAM-RA 
250 : COX0O CURRIGHT —- $AB3B 
260 : COXD ADR z $FD 

2709 : CgO0 LINELEN - $D5 

2809 : CXAXD CHARADR - $DI 

2909 : C990 4- — $C0DDB 
300 : CAO0 20 FD AE HFLOT JSR CHKCOM ; VESSZO 
310 : CGO3 209 EB B7 JSR  GETCOR 
315 : COO064 B6 24 STX XREG 
Szó : CBSOB: AS 15 LDA HBYT 
330 : CO0A C? 02 CMP  §2 

349 : COOC BO 42 BCS ILL 
359 : COOE 0OA ASL 

360 : CAOF ORA ASL 

379 : COI1g 0A ASL 
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CTL Sk SL. CL S. HK NK LNN CSK 1 HK LE TEN" VSE CSK TH HK CV 7 HL CNN TEN TENY TS THY TEN CNN NK CNNÉ TI 


09 26 06 08 06 80 00 08 6 00 


CON CNN CK CNN CK "NT "TC NN VEN TWR TEN VEN " NY HNK NN "BRT TETT BT ENYYNNT HNT NTENTTHT STT BE BEL" SÉT) 


AS 


1E 
11 
16 
498 
65 
FD 
EB 


AS 15 


EB 
24 
14 


EA T2 


EA 


2 


co 


EA 
FERTIG 
Ez 
B2 IL 
74 TABLE 
AE VPLOT 
B7 


Co T4 


TMP 
LBYT 


4 DURCH 8 


TMP : 
CURCOL  $ KURZOR OSZLOPA 


CURCOL 


439 ; c 40 


SETCOL  ; MUTATO A SZIN-RAM-RA 
4" " 4 $80 :; AZ URES KARAKTER REVERSE-BEN 
SETCHAR  ; A KARAKTER ES SZIN BEALLITASA 


CURCOL 
T2 


140 
FERTIG 
47 


TABLE, X 

XREG 

SETCHAR 

817 3 KURZOR LE 
SCROUT 

ILLGUAN 
$20,$65,$74,$75,$61,$F6, SEA, $E7 
CHKCOM 

GETCOR, 

HBYT 

ILL 

XREG ; SZIN 

LBYT 


CHARADR  ; A SOR SZAMA 


CURCOL ; PLUSZ A KURZOR OSZLOPSZAMA 


TMP 

T3 a 

COLOR — ; A SZIN CIMENEK KISZAMITASA 

4" " 4888 

(ADR) ,Y 

XREG ; SZIN 

(FARBI ,Y ; A KARAKTER ES A SZIN BEALLITASA 
ADR 
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1290 : Cg94 58 SEC 

1509 : CG95 E? 28 SBC 440 ; A KÖVETKEZO SOR 
1319 : Cg97 85 FD STA ADR 

13209 : CGg99 BO 08 BCS T5 

1539 : CO9B C6 FE DEC ADR-41 

1549 : COYD AS FE LDA ADRtI 

1559 : COYF CI 04 CMP HA $ A LEGFELSO SOR 
1360 : COA1 909 12 BCC T6 

1570 : COAZ C6 25 TS HEC TWP 

1589 : COAS5 DO EG BNE T4 

1590 : CgA7 289 C7 Co TIS JSR COLOR 

14900 : COAA Aa 25 LDX TMPI 

1410 : CGAC BD BF CO LDA TABZ,X 

1420 : COAF 91 FD STA (ADR),Y 

1439 : COB1 A5 24 LDA XREG ; SZIN 

1449 : COB3 91 F53 STA  (FARB),Y 

1459 : COBS5 A5 D3 T6 LDA CURCOL 

1460 : COB7 CS D5 CMP  LINELN ; A KURZOR AZ UTULSO OSZLOPBAN VAN 
1470 : COB? FO 03 BER €4§5 

1489 : COBB 4C 3B AB JMP  CURRIGHT ; KURZOR JOBBRA 
1499 : COBE 60 RTS 

15090 : COBF 29 64 6F TABZ .BYT $28,$64,$60F,$77,$62,$FB,$F7,$ES 
1510 : COC7 A5 FD COLOR LDA ADR 

1528 : CC §5 F5 STA FARB 

15390 : COCB A5 FE LDA ADRtI 

1549 : COCD 4C 2A EA JMP SETCOL t 6 


Azoknak, akik nem rendelkeznek assembler vagy monitor segédprogramokkal, közöljük a 
BASIC betöltőprogramot: 


G REM áttktt P7. d6it46IE 


100 FOR I-49152 TO 49359 

119 READ X:POKE I, X:5-S-4X:NEXT 

120 DATA 32,253,174, S2,235,183,134, 36,165, 21,201, 2 
139 DATA 176, 66, 10, 10, 19, 19, 19,133, 35,165, 29, 72 
149 DATA 74, 74, 74, 24,101, 35,101,211, 72,168,197,211 
150 DATA 249, 19,201, 39,144, 2,160, 39, 32, 36,234,169 
160 DATA 160, 32, 30,234,136,196,211, 16,243,104,168,194 
170 DATA 192, 40,176, 11, 41, 7,170,189, 83,192,166, 36 
189 DATA 32, 30,234,169, 17, 76, 22,231, 76, 72,178, 32 
190 DATA 101,116,117, 97,246,234,231, 32,253,174, 32,235 
209 DATA 183,165, 21,208,235,134, 36,165, 29, 74, 74, 74 
210 DATA 133, 35,165, 29, 41, 7.133, 37,165,299, 24,1091 
220 DATA 211,13353,253,165,210,105, 0,133,254,160, G,166 
230 DATA 35,240, 32, 532,199,192,169,160,145,253,165, 36 
249 DATA 145,243,165,253, 56,233, 49,133,253,176, 8B,198 
250 DATA 254,165,254,201, 4,144, 18,198, 35,208,224, 32 
269 DATA 199,192,166, 37,189,191,1972,145,253,165, 36,145 
270 DATA 243,165,211,197,213,249, 3, 76, 59,171, 96, 32 
289 DATA 100,111,121, 78,248,247,227,165,253,135,245,165 
290 DATA 254, 76, 42,234 

300 IF SC326696 THEN PRINT"HIBA A DATA SORBAN..!!":END 
310 PRINT"OK. !" 
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Az alábbiakban egy példát mutatunk a sávgrafikonokat készítő gépi kódú rutin felhasználá- 
sára. Első mintafeladatunkban egy forgalmi statisztikát ábrázolunk szemléletes oszlopdiag- 
ramokkal. 


BD REM txxXx PB. tri 


d 
49 A : 


3 POKE 532809,0:FOKE 55281,0 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
240 
250 
260 
270 
280 
290 
500 
310 
3209 
330 
340 
359 


REM AZ EGY EVRE VONATKOZO HAVI OSSZEGEK 

REM ADATSOKBAN VANNAK ELHELYEZVE. 

DIM U(12) 

REM AZ ADATOK BEOLVASÁSA 

FOR I-1 TO 12:READ U(I):NEXT I 

REM A MAXIMALIS ERTEK MEGHATAROZASA 

MAX-O 

FOR I51 TO 12 

IF UCI) 2MAX THEN MAX-Ur(I) 

NEXT I 

V:121440909645t16411:REM A GEFPIKODU SZUBRUTIN CIME 
PRINT CHR$(147):REM KEPERNYO TORLES 

FOR I-1 TO 21:PRINT CHR$(17)::NEXT I:REM CURSOR 
REM A SAVGRAFIKON KIRAJZOLASA 

FOR I-1i1 TO 12 

PRINT SPC(2)::SYS V,U(I) /MAXR198O,I 

NEXT I 

PRINT: PRINT 

REM HONAPOK KIIRASA 

FOR I-1 TO 12 


PRINT RIGHTÉ(" "4STR$(I) 3); 
NEXT I 
GET A$:IF A$-"" THEN 320 


REM HAVI OSSZEGEK 
DATA 12900,13599,119090, 874720,149090, 9000 
DATA 13809.,149909, 12759, 140900, 13890, 17200 


Most ábrázoljunk egy függvényt vízszintes sávgrafikonokkal. 

A 100. sorban a program beolvassa a színkódot. Ezután töröljük a képernyőt, a háttér feketére 
vált és a kurzor átkerül a második oszlopba. A 120. és a 130. sorban kiszámítjuk a függvényér- 
tékeket a —2.2-től 2.2-ig terjedő intervallumban, a kapott értékeket az arányos ábrázolás 
érdekében beszorozzuk 300-zal, és végül a SYS utasítással meghívjuk a rutint, amely a 
függvényt kirajzolja 


2 REM sxxit PI. 4 


; a 
öves 


199 INPUT "SZIN";C:IF CXI OR €515 THEN 1090 

119 H-12r4996:PRINT CHR$(147) TAB(2);:POKE SZZ81,B 
120 FOR I-—2.2 TO 2.2 STEP .2 

139 SYS H,EXP(—IXI) ZOO0,C:NEXT I 
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2.4 Saját karakterkészlet 


A Commodore 64-es egyik hasznos sajátossága, hogy karaktergenerátora áthelyezhető a 
RAM-ba. Minthogy a RAM-ot a gép használója igénye szerint átalakíthatja — a karaktergene- 
rátort áthelyezve —, ezen a tárterületen saját karakterkészletet határozhatunk meg. Az operá- 
ciós rendszer a karaktereket egy-egy 8 X 8 pontból álló karaktermátrix segítségével ábrázolja. 
A tárban minden karaktermátrixhoz 64 bit, azaz 8 byte tartozik. Ha valamely bit magas (azaz 
értéke 1), a hozzárendelt mátrixpont látható a karakterben, egyébként nem. 

Az alábbi kis program segítségével a gép által használt karakterkészlet egy elemét megjelenít- 
hetjük a képernyőn. Mivel a program a 9.5 fejezetben ismertetett módosított PEEK függvény- 
nyel dolgozik, használata előtt be kell tölteni a 9.5 fejezetben közölt gépi kódú programot. 


9 REM A6x3tit PID. ater 

; KÉN 

2.3 

100 PRINT CHR$(147) :PRINT:PRINT: PRINT 

119 INPUT "KEREM A KARAKTERT ";A$ 

120 PRINT CHR$(19)A$:C-PEEK(1924) 

1590 PRINT: PRINT: PRINT: PRINT 

140 CG-13544996:REM A KARAKTERGENERATOR KEZDOCIME 
150 REM KIS/NAGYBETU UZEMMOD-GRAFIKUS UZEMMOD 
160 B-(PEEK(53248-124) AND2) 1924 

170 FOR I-0 TO 7 

180 7-USR(CGtBt8BFC$HFI):REM A MATRIX BETOLTESE SORONKENT 
1979 FOR J-7 TO 0 STEP -1 

2090 A-Z AND 257J 

210 IF A THEN PRINT "e"::GOTO 230 

229 PRINT "."s 

230 NEXT 

240 FRINT 

250 NEXT 

255 FOR I-1 TO 5000:NEXT 

260 RUN 


A program bekéri a karaktert, amelynek mátrixát a képernyőn szeretnénk megjeleníteni. 
A karakter képernyőkódját meghatározza a képernyőtárból és beviszi a B változóba (120. 
sor). A 140. sorban megvizsgálja, hogy melyik (nagybetűs/kisbetűs vagy nagybetűs/zgrafikus) 
üzemmódban használjuk a billentyűzetet. A 160. sorban meghatározza a karaktermátrix 
kezdőpozícióját a karaktergenerátorban. 

A 180. sorban megvizsgálja, hogy egy mátrixpontnak megfelelő bit magas vagy alacsony. 
Ettől függően egy csillagot vagy egy pontot kirajzol a képernyőre. Ha futtatjuk a programot, 
és például a T betű kirajzolását kérjük, a képernyőn a következő ábrát kapjuk: 


HKXXXKXEXX. 
ák SÉ a in 2 
se tg BGSE ae íz 


s ás a E sas ás s 


Most nézzük meg, hogy hogyan lehet BASIC programmal saját karaktert előállítani. Először 
át kell helyeznünk a karaktergenerátort a ROM-ból a RAM-ba, majd közölnünk kell az 
operációs rendszerrel az áthelyezett karaktergenerátor tárbeli kezdőcímét. Ezzel egyidejűleg 
a képernyőtárat is át kell helyeznünk a $C400 kezdőcímre (decimálisan: az 50176-tól az 
51175-ig terjedő tárterületre). Az áthelyezést POKE ciklussal végezzük el, amelyhez ismét 
felhasználjuk a 9.5 fejezetbeli USR függvényt. 


O REM tési PIL. d6t6363E 

Eik 

tér ő 

100 FOR I-13£4094 TO 14x4996-1i 

119 POKE I44996,USR(I):NEXT I 

129 POKE 553272, 24: POKE 565756,148:POKE 648,19965 


A fenti kis program végrehajtása után következhet a saját karakter meghatározása a P12-es 
programmal. A program bekéri a módosítandó karaktert, majd megadhatjuk az új karakter 
mátrixát a billentyűzetről úgy, hogy minden leütött csillag látható (bekapcsolt) karakterpon- 
tot, minden leütött pont pedig nem látható (kikapcsolt) karakterpontot jelent. Tetszőleges 
számú saját karakter meghatározása után a VÉGE szó beütésével jelezhetjük, hogy a karak- 
terkészlet módosítását befejeztük. 


6 REM tttt PI2. $t5t6t 


108 REM KARAKTEREK KESZITESE 

118 CG214848981REM KARAKTER GENERATOR KEZDOCIME 

ROB INPUT "AMMAMSYELYIK KARAKTERT KIVANJA ATIRNI "JA$StIF A$5"VEGE" THEN END 
210 PRINT "16"3A$S 

220 C"PEEK(123408811824) 

£30 PRINT "MREREDRERDAP 1234587" 

309 FOR I:8 TO 7 

310 PRINT IS1INPUT ASCI)DEIF LENCASCI))CIB THEN PRINT "(ITtGOTO 310 

328 NEXT 

400 B:(PEEK(53248124)ANDZ ) £1024 1 REM NAGYBETU/GRAFIKA UZEMMOD 

485 AD"CGLBFCHB sgtké 
410 FOR I58 TO 71258 

420 FOR J:8 TO 7 

430 Z252-CMIDS(AS(I),8-J,1)z"a")e2tj 

448 NEXT 

450 POKE ADFI,ZIREM KARAKTER 

460 POKE ADLIO24tI ,285-Z:REM RVS KARAKTER 

470 NEXT 

488 GOTO 280 
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2.5 A karakterkészlet módosítása joystickkal 


Ha gyakran dolgozunk programjainkban különleges karakterekkel (például egy matematikai 
programban görög betűkkel), a kívánt karakterek létrehozásának előzőekben; ismertetett 
módja meglehetősen lassú és kényelmetlen. Különösen akkor, ha nemcsák betűket, hanem 
kis grafikus figurákat is szeretnénk felhasználni. Legjobb megoldás, ha előzetesen raszterpa- 
píron megtervezzük a figurát, kiszámítjuk a pontsorokhoz tartozó bitkombinációkat, majd a 
bináris szám decimális megfelelőjét POKE utasítással byte-onként elhelyezzük a RAM-beli 
karaktergenerátorban. Ez a munka meglehetősen lassú és fáradságos. A kényelmetlenségek 
elkerülésére bemutatunk egy olyan programot, amellyel egy karaktert felnagyítva ábrázolha- 
tunk és a joystickkal (botkormánnyal) tetszőlegesen módosíthatjuk a képernyőn. A botkor- 
mányt a program az 1-es portról használja). 

Az új karakterkészlet kialakításához két, a RAM-ban elhelyezett karaktergenerátorra van 
szükség, azaz az eredeti ROM-beli karaktergenerátorból két másolatot kell képezni. A prog- 
ram a módosítandó karaktert sprite-ként ábrázolva megjelenti a képernyőn eredeti és kétsze- 
res nagyságban, és belehelyez egy villogó mikrokurzort, amelyet a joystickkal tetszőleges 
irányba elmozdíthatunk. A joystick tűzgombjával vezérelhetjük, hogy milyen műveletet aka- 
runk végezni (vonalat húzni, törölni, pozicionálni stb.). 

Ha elégedettek vagyunk a megrajzolt karakterrel, az Fi gombot kell megnyomnunk, mire a 
program a karaktergenerátor második másolátában a módosító karakter helyére betölti az 
új karaktert. Azt, hogy egy karaktert változatlanul hagyunk, a G billentyű megnyomásával 
jelezhetjük. 

A program az 512 karakterből álló teljes karakterkészlet feldolgozása után véget ér. 

Az 512 karakter egy kicsit soknak tűnik, de ha figyelembe vesszük a billentyűzet mindkét 
üzemmódját (nagybetűs/grafikus, ill. nagybetűs/kisbetűs), üzemmódonként 128 lehetséges 
karakterrel, és ezt megduplázzuk - a fordított (reverse) ábrázolásmód miatt —, az eredmény 
tényleg pontosan 512. 

Az alábbiakban részletesen ismertetjük a programban használt változókat és a program 
működését. 


A változólista: 


c A soron következő karakter báziscíme az első másolatban. 

CD A karakter báziscíme a második másolatban. 

CP 0-5tt tartományú karakterpozíció számláló. 

JB A tűzgomb állapota. 

JR A joystick kapcsolóállása. 

JS Az 1-es port címe 

MA Üzemmód-kapcsoló 

PO A mikrokurzor pozíciója a megcímzett byte-on belül. 

PP " A mikrokurzor pillanatnyi helyzetének megfelelő cím a sprite-on belül. 
PV A botkormány pillanatnyi állásának megfelelő byte értéke a sprite-on belül. 
SB A sprite adatok báziscíme. 

v A videovezérlő báziscíme. 

x A sprite x-pozíciója a képernyőn. 

Xj A botkormánnyal vezérelt mikrokurzor x-pozíciója. 

Y A sprite-ok y-pozíciója a képernyőn. 

YJ A botkormány által vezérelt mikrokurzor y-pozíciója. 
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Érintett tárcímek: 


56 
648 
832 


50169 
50170 
53272 
56576 


A RAM-top mutató felső byte-ja 

A videoram kezdete (mutató) 

A kazettapuffer kezdőcíme. (Minthogy erre a területre nincs szükségünk, ide 
helyeztük a gépi kódú programot.) 

Az első sprite kezdete (mutató) 

A második sprite kezdete (mutató) 

A videoram és a karaktergenerátor kezdete a videovezérlőn belül. 

A képernyővel összefüggő 16 kbyte-os tárterületet kiválasztó biteket tartalmazó 
tárcím 


A program dokumentációja: 


10 


30233 


1000—-1010 


A tár felső határát eltoljuk, ugyanis ide kell elhelyezni a karakterkészlet első 
másolatát. 

Bekapcsoljuk az első és a második sprite-ot és beállítjuk a színüket. Betöltjük 
a sprite-mutatókat, majd a második sprite-ot kétszeresére nagyítjuk. 

Töröljük a sprite-adatokat, majd a sprite-okat a képernyő közepére pozicionál- 
juk. 64 a 

A gépi kódú rutin DATA sora 


A gépi kódú rutin assembler utasításai: 


sei 

Ida 44$33 
sta 1 

Ida 440 
sta $5f 
sta $5a 
sta $58 
Ida $dO 
sta $60 
Ida 46$fí0 
sta $59 
Ida 1$e0 
sta $5b 
isr $ag3bf 
Ida 34$37 
sta 1 

eli 

ret 


1020—-1040 


1060 


A megszakítás letiltása 
A karaktergenerátor megnyitása 


A régi blokk-kezdet (alsó byte) 
A régi blokkvég (alsó byte) 
Az új blokkvég (alsó byte) 


A régi blokk-kezdet (felső byte). 
Az új blokkvég (felső byte). 


A régi blokkvég (felső byte). 
A blokkokat áthelyező rutin 


A megszakítás engedélyezése 
Ugrás vissza a BASIC-hez 


A gépi program betöltése a kazettapufferbe és futtatása. Futás után a karakter- 
generátorról elkészül a két másolat. 
A program közli az operációs rendszerrel a változásokat. 
A megváltozott karaktergenerátor és a videoram helyzete (az utóbbi hardver 
okok miatt!) 
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A képernyőn most látható karakterek már a második másolatból származnak. 

2000-2360 A karakterek egymás utáni áttöltése a sprite-adatokba és módosításuk. 

2380 Az összes karakter kezelése után a RAM-top helyreállítása. (Az első másolatra 
már nincs szükség.) 

4000-4070 — Lekérdezzük a botkormányt, majd a botkormány és a tűzgomb állásától függő- 
en elágaztatjuk a programot. 

5000—-12040 Apwjoystick állásától függően aktualizáljuk a kurzorpozíciót. 

13000-13200 A botkormány pozícióját átszámítjuk a mikrokurzor pozíciójára, majd ezt a 
pontot felváltva be- és kikapcsoljuk. 

20090—20080 A kész karaktereket áttöltjük a második másolatba. 


A módosított karaktergenerátor nem foglal el BASIC tárterületet, a RAM-ban az operációs 
rendszer alatt helyezkedik el. (A Commodore 64-es sajátossága a RAM és ROM közötti 
átlapolási lehetőség.) 

A videoram kezdőcíme a 49152, amit mindig szem előtt kell tartani, ha a tárcímek tartalmát 
POKE utasítással módosítjuk. A gép hardver-felépítéséből következik, hogy a karaktergenerá- 
tor áthelyezésekor a videoram is eltolódik. Ezzel a problémakörrel részletesen , A C 64 belső 
felépítése" c. könyvből ismerkedhetünk meg. 
A program listája: 


B REPI ttttáétt PIT. 4646-it- 

$-t: 

2. 

19 POKE 56,144:CLR 

20 V:53248 

39 POKE Vt21,6:POKE Vt4g,i1:rPOKE Vr4t,i 

40 POKE 59169,16:POKE 59178,16 

42 POKE Vt23,4:FPOKE V329,4 

50 FOR I:0 TO 62:POKE 5917651,9:NEXT 

55 X-159:Y-109 

223 POKE Vr4,X 

226 POKE Vr2,X-49 

253 POKE Vt16,O 

329 POKE V65,Y:POKE VIr3,Yr19? 

1008 DATA 129,169,51,135353,1,167,0,133,75,133,99,135,88,1697,258,135,96,169,248 
1019 DATA 1353,89,169,224,1533,91,52,191,165,169,55,1353,1,88,96 

19209 FOR I5 832 TO 832455 

1939 READ A:POKE I,A:NEXT 

1040 SYS B32:POKE 850,160:SYS 852 

1969 POKE 53272,8:POKE 56576,PEEK(56576) AND25SZ2:POKE 648,192 

1079 PRINT CHR$(179) 

20090 C-914996 

2020 FOR CP-B TO S511:PRINT CHRS$K(19)CP:SB-58176 

2040 FOR IO TO 7 

2060 FPOKE SBt3rI,PEEK(CtrI) 

2088 NEXT I 

2360 C-C48B:GOSUB 4008:NEXT CP 

2389 POKE Vt21,0O:POKE 56,160:CLR:END 

4090 XJ-O:YJ-O: 1S-56321 : S8-59176 

4029 JR-(255-PEEK(JS)) AND 15:JB-(255-PEEK(JS)) AND 16 

4030 IF JB THEN MA-MAti: IF MALZZ2 THEN MAZO 

4049 ON JR GOTO 5999 , 6009 , 4929 , 7099 , 8990 , 7990 , 4920 , 190990 , 11990 , 12490 

4045 IF PEEK(293)C24 THEN 40966 

4050 PRINT CHR$ (147) CHR$(51) CHR$ (17) CHR$ ( 17) CHR$ (17) CHR$ ( 17) CHR$ (18) " MENTES ":G6 
OSUB 29900 

4055 PRINT CHR$(147)CHR$(51) CHR$ (17) CHR$ ( 17) CHR$ ( 17) CHR$ ( 17) z RETURN 

4066 IF MA-i THEN PRINT CHR$(147)CHR$(S512)CHR$(17) CHR$(17) CHR$(18)" ALLITAS" 
4067 IF MA-2 THEN PRINT CHR$(147)CHR$(51)CHRÉE(17)CHR$(17)CHR$(18)/ TORLES " 
4068 IF PEEK(293)-ZSTHEN RETURN 


25 


4069 IF MAz-O THEN PRINT CHR$(147)CHR$(5S1) CHR$(17)CHR$(1I7)" 

4970 GOSUB 13900:GOTO 49209 

5099 REM FOLSO 

53020 YJ-YJ-—-1:IF YJCG THEN YJ-B 

5040 GOSUB 130909:GOTO 49289 

60090 REM ALSO 

6020 YJ-YJt1: IF YJ27 THEN YJ-7 

6040 GOSUB 13090:GOTO 4620 

7000 REM BAL 

7020 XJ-XJ-—-1:IF XJCAO THEN XJ-0 

7040 GOSUB 13900:GOTO 4029 

80090 REM BAL FOLSO 

BO29 XJ-XJ-—-1:IF XJCG THEN XJz0 

8949 GOTU 5090 

70090 REM BAL ALSO 

90290 XJ-XJ-1:IF XJCO THEN XJ-—-0 

7949 GOTO 6099 

190090 REM JOBB 

10020 XJ-XJt1:IF XJ27 THEN XJ-r7 

10949 COSUB 15000:G60TO 4020 

110040 REM JOBB FOLSO 

11920 XJzXJt1:IF XJ27 THEN XJ-7 

11049 GOTO 5000 

12900 REM JOBB ALSO 

12020 XJ-XJt1:IF XJ27 THEN XJz7 

12040 GOTO 6000 

159909 REM 

150290 PP-SBHYJ$34INT(XJ/8) : PV-PEEK (PP) 

15040 PO-XJ-—-INT(XJ/8) FB 5 £. 
15060 IF PV AND 25(7-PO) THEN POKE PP,(PV AND (295—25(7-PO))):GOTO 13109 
15989 POKE PP,(PV OR (257(7-PO))) 

15100 IF MA-i THEN PV-(PV OR (257(7-PO))) 
15129 IF MA-2 THEN PV-(PV AND (255-27(7-PO))) 
152009 FOR I-G TO 50: NEXT:POKE PP ,PV: RETURN 
20000 REM AZ UJ KARAKTER ATVITELE 

20910 CD-Ct29472 

299020 FOR 1-8 TD 7 

20040 POKE CD-FI,PEEK(SBH3YI) 

20060 NEXT I 

20080 RETURN 
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2.6 A billentyűzet-kiosztás és -módosítás 


A Commodore 64-es billentyűzete mátrixszerűen nyolc sorban és nyolc oszlopban rendezhető 
el. A nyolc sorhoz tartozó vezetékek a CIA 1 A portjához ($DC00— 56320 cím), a nyolc 
oszlophoz tartozók pedig a CIA 1 B portjához ($DCO1 — 56321 cím) csatlakoznak. A billentyű- 
zet lekérdezésekor ($FF9F — 65485 cím) az A porton minden sorról egy-egy jel érkezik. Ha egy 
billentyű le van nyomva, a B porton keresztül lekérdezhetjük az oszlopot. A sor és az oszlop 
számából a rendszer kiszámít egy a 0 és 63 közé eső ún. billentyűszámot. Ha ennek értéke 
64, akkor egyetlen billentyű sincs lenyomva (a hozzárendelést alább szemléltetjük). A billen- 
tyűszámot a rendszer minden lekérdezés után $CB (203) címen tárolja; az utolsóként lenyo- 
mott billentyű száma pedig a $C5 (197) címre kerül. A különleges billentyűk állapotát a $028D 
(653) cím tartalma jelzi. A nullás bit a SHIFT, az egyes bit a Commodore, a kettes bit pedig 
a CTRL billentyűre vonatkozik. A karakterek és a billentyűk egymáshoz rendelését az ASCII 
kódokat tartalmazó tárbeli táblázatokkal oldották meg. Mivel a Commodore 64-es minden 
billentyűje több funkciót lát el, összesen 4 ilyen kódtáblázat van a tárban. 

A billentyűzetet szemléltető ábra elemzésekor ne feledkezzünk meg arról, hogy a bal és jobb 
oldali SHIFT billentyűk nem egyenértékűek. A Shift Lock (zár) funkciót a bal oldali SHIFT 
billentyű látja el. (A legújabb típusú alapgépeken a SHIFT LOCK billentyű külön van.) 


Oszlop 0 1 2 6 4 5 6 f 
Sor § 
0 " DEL — RETURN CURRIGHT F7 F1 ES F5 — CURDOWN 
1 3 wW A 4 Z S E SHIFT 
(BAL) 
2 5 R D 6 c F T X 
3 7 Vé G 8 B H U V 
4 9 l J 0 M K o N 
5 ak P L — y 2 ) 
6 FONT 4 HOME SHIFT z 1 / 
(JOBB) 
7 1 PFL CTRL 2 SPACE  €C-— (e) STOP 


Az 1. tárbeli kódtáblázat az önállóan lenyomott billentyűk karaktereinek ASCII kódjait tartal- 
mazza. A 2., 3. és 4. táblázat rendre az adott billentyű, ill. a SHIFT, a C— és a CTRL billentyűk 
együttes lenyomásával elérhető karakterek ASCII kódjaiból épül fel. 

A táblázatokban előforduló $FF (255) érték a nem létező kombinációkra utal. A SHIFT, a C 5 
és a CTRL billentyűket külön kell kezelni, az ezeknek megfelelő érték az 1. táblázatban 1, 2 
és 4. A különleges billentyűk állapotát a $28D (653) tárcím 0., 1. és 2. bitje jelzi. 

Ha valamelyik billentyűhöz egy másik kódot akarunk hozzárendelni, a megfelelő bejegyzést 
a kódtáblázatban módosítanunk kell. Mivel a táblázatok a ROM-ban vannak, a bejegyzéseket 
nem lehet egyszerűen felülírni. Hasonlóan járhatunk el, mint a saját karakterkészlet kialakítá- 
sánál, az operációs rendszert átmásoljuk az , alatta lévő" RAM-ba, majd itt végrehajtjuk a 
kívánt változtatást. A tárkiosztás miatt eközben a BASIC ROM-ot is át kell helyeznünk a RAM 
területre. Az alábbi kis programmal elvégezhetjük a tár átszervezését: 
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B REM tüátt Pi4. titi 
: si 
2 : 


109 FOR I:49969 TO 49151:REM BASIC-ROM MASOLAS 

119 POKE I,PEEK(I) : NEXT 

129 FOR 1-14449964 TO 65535:REM OPERACIOS RENDSZER MASOLAS 
138 POKE I,PEEK(I):NEXT E 

149 POKE 1,53 


A 100-tól 130-ig terjedő sorok az operációs rendszert és a BASIC-et másolják át a ROM-ból 
az alatta lévő RAM-ba. A tár átrendezése után a 140. sorban a ROM-ot átkapcsoljuk RAM-ra. 
így az operációs rendszer a továbbiakban a RAM-ban fut. A RAM területen már tetszőlegesen 
megváltoztatjuk az egyes billentyűk kódjait. 

A német és az amerikai billentyűzet közötti eltérés az Y és Z billentyűk helyzetében van. 
A német billentyűzet előállításához ezt a két billentyűt fel kell cserélni, úgy, hogy aZ aT mellé, 
az Y pedig az X mellé kerüljön. 

A billentyűk áthelyezéséhez szükségünk van a négy kódtáblázat kezdőcímeire. 

A kódok módosításához meg kell határoznunk a kiválasztott billentyűk számát a billentyűzet- 
hez rendelt mátrixból. A mátrix elemeinek számozása a bal felső saroktól számítva soronként 
haladva O-tól 63-ig tart. Az Y billentyű száma tehát 25, a Z billentyűé pedig 12. A módosítást 
a két billentyűszám felcserélésével végezhetjük el 


1. táblázat: $EB8B1 (60289) 
2. táblázat: SHIFT-tel $EBC2 (60354) 
3. táblázat: Commodore-ral $ECO3 (60419) 
4. táblázat: CTRL-lel $EC78B (60536) 


0 REM axxx PID. 363636 

; 2k 

2 4 

150 T1-60289:REM AZ ELSO TABLAZAT ALAPALLAPOT 

160 T2-60354:REM A MASODIK TABLAZAT SHIFT BILLENTYUVEL 

170 T3-60419:REM A HARMADIK TABLAZAT COMMODORE BILLENTYUVEL 
189 T4-60536:REM A NEGYEDIK TABLAZAT CONTROL BILLENTYUVEL 
200 POKE T1425,ASC("Z") 

210 POKE TIt12,ASCCOY") 


Ha a program végrehajtása után leütjük a Z billentyűt, Y jelenik meg a képernyőn, és 
megfordítva. A kisbetűk felcseréléséhez meg kell változtatnunk a második táblázat bejegyzé- 
seit is: 


OG REM titi PI1GD. ttRR 

: Mg 

s. 6 

220 POKE T2H25S,ASC("Z") 
230 POKE T2rI2,ASC(Y") 


A CTRL billentyű szerepét is megváltoztathatjuk: 


8 REM tét PÍ7. tits 

d 

2. ú 

240 POKE T4425,ASC("Z")-64 
250 POKE T4HI12,ASC("Y")-64 
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A négy táblázat segítségével tehát 4464—256 különböző karaktert határozhatunk meg. 
A RESTORE billentyű szerepét nem módosíthatjuk, mive: az közvetlenül kapcsolódik a pro- 
cesszor NMI-vezetékéhez. Az új billentyűzet-kiosztás a SI )P/RESTORE ienyomásáig érvény- 
ben marad. A STOP/RESTORE leütésekor a rendszer ismé : visszakapcsol a ROM-ra (alapálla- 
potra), de ez is megakadályozható, ha a tárkiosztásra vor atkozó értéket a RAM-ban mégvál- 
toztatjuk. Illesszük be a fenti programba az alábbi sort: 


190 POKE 64982, 53 


Kicsit kényelmetlen az ismertetett eljárásban, hogy a b: entyű számát e (-etesen a mátrix 
alapján ki kell számítani. Azonban ezt a feladatot is rávízhatjuk a gépre. A billentyűszám 
automatikus meghatározására szolgál az alábbi progra n: 


0 REM ttitx PIB. 3F4646-46 

€:§ 

68) 

199 DIM T(4):FOR I-1 TO 4:READ T(I):NEXT 

110 DATA 60289,605354,69417,60536 

129 FOR I-1464996 TO 65535:POKE I,PEEK(I) :NEXT 

1530 FOR I499609 TO 49151 :POKE I,PEEK(I):NEXT 

140 POKE 1,53:POKE 64982,53 

109090 PRINT "KEREM NYOMJA MEG A ":PRINT "MODOSIT N4DO BILLENTYI/! ""; 
1919 GET A$:IF A$-"" THEN 10910 

1020 FRINT A$ 

1039 AZ-ASC(A$) 

1040 FOR J-1 TO 4 :T-T(J) 

19050 FOR I-0 TO 653 :IF PEEK(T4tI)C2A THEN NEXT:NEXT 
1060 PRINT "MELYIK BILLENTYURE CSERELI ?"; 

19709 GET A$:IF A$-"" THEN 1970 

1080 PRINT A$ 

1999 POKE T4I,ASC(A4$) :GOTO 1999 


3. FEJEZET 
KÉNYELMES ADATBEVITEL. 


3.1 A kurzor pozicionálása és a kurzorpozíció 
lekérdezése ú 


Az esztétikus képernyőtervek megvalósítása során a programozásban nagy segítséget jelen- 


nánk. A Commodore 64-es alapszoftvere azonban a kurzor vezérlésére csak két utasítást 
szolgáltat: a TAB utasítást, amellyel a soron belül pozicionálhatunk, ill. a POS utasítást, 


Ugyanakkor az operációs rendszerbe be vannak építve az általános pozicionálási utasítás- 
hoz szükséges rutinok és rendszerváltozók. A kurzor aktuális helyzetének sor- és oszlop- 
koordinitája a tár két fix címén van, ezeket PEEK utasítással bármikor lekérdezhetjük. 


B REM détáfk PIR.  d6sEdtat 
1: 
7 gl z 


READY. 


Ha a kurzort a képernyő rögzített helyén akarjuk megjeleníteni, nem elég a sor-, ill. oszlop- 
koordinátát a 211-es és 214-es tárcímekre betölteni. A koordináták alapján kell kiszámítani 
az adott pozícióhoz tartozó képernyőtáron, ill. színtáron belüli tárcímeket. Az operációs 
rendszerben az S$8640-es kezdőcímen levő rutin elvégzi ezt a feladatot. 

Az alábbi BASIC programmal a kurzort a képernyő tetszőleges helyére állíthatjuk. 


OO REM titittt P2O. tititt 


199 REM A KURZOR POZICIONALASA 
119 INPUT "SOR SZAMA";Z 

129 INPUT "OSZLOP SZAMA":S 
138 POKE 214,Z 

140 POKE 211,5 

159 SYS 58640 

160 PRINT "SZOVEG"; 


A képernyőszerkesztést rendkívüli módon megkönnyíti a bemutatott eljárás. Ha például olyan 
programot készítünk, amely az input-output műveletek végrehajtása közben üzeneteket küld 
a gépkezelőnek, gondot okozhat az üzenet szövegének elhelyezése, majd az aktuális művelet 
folytatása. Az ismertetett rutinok felhasználásával az üzenet kijelzése előtt lekérdezhetjük a 
kurzor aktuális pozícióját, elmozgathatjuk a kurzort az üzenet közlésére szánt rögzített sorra, 
majd kiírás után azon a képernyőpozíción folytathatjuk a következő műveleteket, ahol azt 
előbb abbahagytuk. Az elmondottakat az alábbi programrészlet szemlélteti: 
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199 PRINT "A KURZOR A"PEEK(214)". SORBAN":PRINT "ES A"PEEK(211)".OSZLOPBAN ALL. 


0 REM dtátttát P21. atatárát 
1 : 
2: 
30909 Z-PEEK(214):REM SOR 

5310 S8-PEEK(211) : REM OSZLOP 

520 POKE 214,0:REM A KURZOR A 0. SORBAN 

3389 POKE 211,3:REM A KURZOR A 3. OSZLOPBAN 
s35 SYs 586408 

349 PRINT"KEREM TEGYE A LEMEZT A MEGHAJTOBA" 
359 POKE 214,Z:REM A SOR VISSZAALLITASA 


368 POKE 211,58:REM AZ OSZLOP VISSZAALLITASA 
370 Ssvs 58640 


A képernyőn a sorok számozása 0-tól 24-ig, az oszlopok számozása pedig 0-tól 39-ig terjed. 
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3.2 A kurzor ki- és bekapcsolása 


A Commodore 64-es az INPUT utasítás végrehajtásakor, ill. parancsüzemmódban az aktuális 
képernyőpozíciót a kurzor villogtatásával jelzi. Az INPUT utasítással szemben a GET végre- 
hajtásakor nem jelenik meg a képernyőn a villogó kurzor. Előfordulhat, hogy az adatbevítelt 
GET utasítással akarjuk elvégezni, de szükségünk lenne arra, hogy a kurzor most is villogjon, 
jelezve a gépkezelőnek, hogy hol tart a begépeléssel. 

Az operációs rendszer a 204-es tárcím tartalma alapján végzi a kurzor ki-, bekapcsolását. 
Ha a tárcím tartalma nulla, a rendszer a kurzort villogtatja, ha pedig egy (vagy más nullától 
különböző érték), akkor a kurzort kikapcsolja. 

A fentiekből következik, hogy a kurzor villogtatását a programunkból egyetlen POKE utasítás- 
sal vezérelhetjük: 


0 REM xii P22. 363titit 

$.§ 

ál 

100 POKE 204,0:REM A KURZOR BEKAPCSOLASA 

110 GET A$ :IF A$-"" THEN 110 :REM VARAKOZAS EGY BILLENTYURE 
120 FPOKE 2094,1:REM A KURZOR KIKAPCSOLASA 

1390 PRINT A$; 


Lehetséges, hogy a kurzor kikapcsolásakor a villogás abban a pillanatban szűnik meg, 
amikor a képernyőn látható a kis négyzet, és ez elrontja a képet. Minthogy a nulláslapon 
a 207-es tárcím tartalma mutatja, hogy a négyzet az adott pillanatban látszik vagy sem, ezt 
a problémát könnyen megoldhatjuk úgy, hogy lekérdezve a 207-es cím tartalmát, a kurzort 
éppen abban a pillanatban kapcsoljuk ki, amikor a négyzet nem látható. Egészítsük ki a fenti 
programot az alábbi sorral: 


115 IF PEEK (207) THEN 115: REM VÁRAKOZÁS A KURZOR KIKAPCSOLÁSÁRA 


Az eljárás további alkalmazási lehetőségével találkozunk majd a 3.5 fejezetben. 
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3.3 Az összes billentyű automatikus ismétlése (repeat) 


A Commodore 64-es használata során bizonyára észrevették, hogy a szóközbillentyű és a 
kurzort vezérlő billentyűk ismétléssel működnek, azaz amíg a billentyűt lenyomva tartjuk, 
automatikusan ismételnek. Az automatikus ismétlés a programok szerkesztése során különö- 
sen hasznos, és egy POKE utasítással az összes billentyűre nézve érvényesíthető. 

— Ha a 650-es tárcím tartalma nulla, akkor csak a kurzor billentyűk ismételnek. 

— Ha POKE utasítással a 650-es tárcímre 128-at írunk be, az összes billentyű ismételni fog. 
— Ha az automatikus ismétlést teljesen ki akarjuk iktatni, a 650-es címre 64-et kell írnunk. 


REM ittittt P23. 9 
2 


mNn e 


09 POKE 655, 128:3:REM MINDEN BILLENTYU ISMETEL 
299 POKE 650,8 :REM CSAK A KURZOR ISMETEL 
308 POKE 650,64:REM AZ ISMETLES KIKAPCSOLASA 


Az ismétlés, ill. a késleltetés sebességét a 651-es és a 652-es tárcímek tartalma határozza meg. 
Ezeket a paramétereket csak az operációs rendszer áthelyezésével tudjuk tartósan megvál- 


toztatni, mivel értéküket a rendszer indításkor mindig újra beállítja (I. a 2.6 és a 4.2 alfejezete- 
ket). 


3.4 A WAIT utasítás: Várakozás egy billentyű megnyomá- 
sára 
A WAIT rendkívül ritkán alkalmazott BASIC utasítás. Hogyan működik ez az utasítás? 


WAIT AB 


Jelentése: beolvassa az A rekesz tartalmát (ugyanúgy, mint a PEEK utasítás), és végrehajt 
egy AND logikai műveletet az A és B tartalma között. Ha az eredmény nulla, az egész folyamat 
még egyszer megismétlődik, ha nem, a program fut tovább. Az utasítás működése alapján 
az A tárcímnek input/output portnak vagy egy külső egység címének, vagy egy olyan címnek 
kell lennie, amelynek értékét megszakító rutin változtatja. Ellenkező esetben ugyanis az 
utasítás vagy egyáltalán nem, vagy a végtelenségig várakozna. 
A legérdekesebb felhasználás minden bizonnyal az egy meghatározott billentyű lenyomására 
való várakozás. A 653-as rekesz tartalma pl. arra utal, hogy lenyomott állapotban van-e a 
három speciális billentyű, a SHIFT, a CTRL vagy a COMMODORE billentyű. A WAIT utasítással 
mindaddig várhatunk, amíg a három billentyű valamelyikét le nem nyomták. PI.: 

0 REM titi P24. 46463646 

sg 

109 PRINT "KEREM NYOMJA MEG A CTRL BILLENTYUT!" 

1190 WAIT 653,4:REM VARAKOZAS A CTRL-RE 


A 110. sorban a program várja a CTRL billentyű lenyomását. A SHIFT és a COMMODORE 
billentyűre az alábbi WAIT utasításokkal várhatunk: 


WAIT 653,1: VARAKOZAS A SHIFT BILLENTYURE 
WAIT 653.2: REM VARAKOZAS A COMMODORE BILLENTYURE 


Ha tetszőleges billentyű lenyomására akarunk várni, lekérdezhetjük a 203-as tárpozíciót. Ha 
egyetlen billentyű sincs lenyomva, a cím 64-et, egyébként a lenyomott billentyű mátrixszámát 
tartalmazza (I. a 2.3 fejezetet). A WAIT 20364 utasítás mindaddig felfüggeszti a program 
futását, amíg egyáltalán van lenyomott billentyű. 
A WAIT 203,63 utasítás csak egy billentyű lenyomása után folytatja a program végrehajtását. 
Az utóbbival helyettesíthetjük a GET utasítást, amelynél várakozás közben mindig le kell 
kérdezni az üres füzért. 

B REM töttk P2S. 4Ed6363E 

2 : 

100 WAIT 653,63 

119 GET A$:PRINT As; 


A fenti WAIT utasítás csak akkor ér véget, amikor egy billentyűt lenyomunk. Ha már vannak 
adatok a billentyűzet-pufferben, a lenyomott billentyűk száma is alapul szolgálhat a WAIT 
lekérdezéséhez. 


0 REM tai P2G. BEdAEAE 

£ 4 

2 : 

109 WAIT 19A,255:REM VAN ADAT A KLAVIATURA PUFFERBEN? 
119 GET A$:PRINT A$;z 

120 GOTO 109 
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3.5 Egy kényelmes INPUT rutin 


Gyakran előfordul, hogy hibás adatbevitel miatt a program futása megszakad. A hiba forrása 
általában az, hogy INPUT utasítás után numerikus változót írtunk, de a végrehajtáskor nem 
numerikus karaktert (karaktereket) gépeltünk be. 

Ezt a hibát elkerülhetjük, ha INPUT utasítás helyett GET utasítást használunk. Ekkor viszont 
sok kényelmetlenséget okoz, ha nem egyetlen karaktert kívánunk beolvasni — hiszen a 
változót karakterenként kell összerakni. Másik hátránya, hogy a képernyőn nem jelenik meg 
a kurzor. 

Ha el is fogadjuk a beviteli utasítások ismert hátrányait, és feltételezzük, hogy a gépkezelő 
nem követ el olyan hibát, amely közvetlenül az adatbevitelnél okoz programmegszakítást, az 
adatbevitelnél történt hibák a későbbi feldolgozásnál komoly gondot okozhatnak. 

Az INPUT A utasítást például helyettesíthetjük az INPUT A$ utasítással, elkerülve a program- 
megszakítást. Ez a megoldás numerikus adatok bevitelére is alkalmas, hiszen a VAL függ- 
vénnyel a karakteres változót numerikussá alakíthatjuk. A hiba lehetősége mégis fennáll, 
hiszen ha a gépkezelő pl. az 123856 karaktersorozatot üti be, amikor a programban numeri- 
kus adatot várunk, az A-— VAL(A$) eredménye 1283 lesz, ami feltehetően nem helyes. 
Érvelhetünk azzal is, hogy az ilyen adatbeviteli hibák nem általánosak, és a , hobby progra- 
mozók" programjaiból eredő hibás számításoknak nincsenek messzeható következményei. 
Véleményünk szerint azonban mindig célszerű megbízható programok megírására töreked- 
nünk, nehogy a továbbiak során bármikor is zavarba jöhessünk. A programok elkészítése 
közben nem szabad a saját szükségleteinkből kiindulni, mindig szem előtt kell tartani a 
megbízó igényeit. 

Az alábbiakban egy olyan INPUT rutint mutatunk be az Olvasónak, amelyet bárki felhasznál- 
hat, és amely az említett programmegszakítási hibákat messzemenően kiszűri. 

Érdemes a programot nagyon alaposan áttanulmányozni, hogy minél rugalmasabban alkal- 
mazhassuk speciális igényű programozási feladatokban is. Először ismertetjük a program- 
ban használt változók rendeltetését. Az alábbi változók értékét a rutin meghívása előtt a 
feladat jellegétől függően a használónak kell meghatározni: 


MN-0 Numerikus adatbevitel 

MN-—1 Alfanumerikus adatbevitel 

ML-0 Az IL-ben megadott hosszúság kötelező! 

ML-1 Az IL-ben a maximális hosszúságot kell megadni! 
HAB Az adat kötelező vagy maximális hosszúsága. 


A rutin további változói: 


616 Érvényes karakterek száma az IN$-ban. 

CS A kurzor pillanatnyi oszloppozíciója. 

CZ A kurzor pillanatnyi sorpozíciója. 

GP Az inputmező INSEHRT által előállított hosszúsága. 

MS A kurzor legmagasabb oszloppozíciója az adatbevitel során. 
G$ Az utoljára végrehajtott GET-tel beolvasott karakter 

IN$ A beolvasott adat. 
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A rutinban használt tárcímek: 


204-0 
204— 1 
205 
207-0 
20771 
211 
214 


A kurzor bekapcsolása. 

A kurzor kikapcsolása. 

A villogás frekvenciájának számlálója. 
A kurzor a KI fázisban. 

A kurzor a BE fázisban. 

Az oszlop pozíciója. 

A sor pozíciója. 


A rutin meghívása előtt meg kell nyitni a képernyőt az OPEN 1.3 utasítással, mivel a 35680-as 
sorban GET tt1 utasítással olvassuk be az adatokat 


A rutin lépései: 


35020 


35060 
35080 


35100-35130 


35140 
35160-35180 


35200 
35220—-35240 


5300-35380 
35400 


35600—-35690 


36000—36060 


A szükséges változók kezdőértékének meghatározása és a kurzorpozíció táro- 
lása a 35680. sor GET dt 1 utasításához. 

Egy karakter beolvasása a klaviatúráról. 

Ha a beolvasott karakter a RETURN volt, az adatbevitelnek vége, az adat 
hosszúságát az ML értékétől függően ellenőrizni kell. 

DELETE billentyű használata után a hosszúságot és a pozíció-számlálót ak- 
tualizálni kell attól függően, hogy az input mező csak érvényes karaktereket 
tartalmaz (CP—- 0), vagy az INSERT-tel bővült (CP c 5 0). 

Az INSERT-et csak akkor szabad végrehajtani, ha ezzel nem léptük túl az 
IL-ben megadott hosszúságot. 

A kurzor jobbra és balra mozgatása közben gondoskodni kell arról, hogy ne 
hagyjuk el az input mezőt. 

Ugrás az adatvizsgálatra, MN értékétől függően. 

Numerikus adatbevitelnél, ha a kurzor az adatmezőn belül van, a program 
elfogadja a karaktert. Az érvényességi tartományt a 47 és az 58 kódokkal 
szabtuk meg. Az általunk megadott tartomány numerikus adatbevítelnél csak 
0-tól 9-ig terjed. Az érvényességi tartományt tetszés szerint bárki megszabhatja 
a C-64-es felhasználói kézikönyvben található kódtáblázat alapján. 
Alfanumerikus ellenőrzés. 

Az adatbevitel nem érhet véget, ha az adat hossza még kisebb az előírt 
hosszúságnál (ML — 0). 

Az IL-ben megadott hosszúság eléréséig a beütött karaktereket gyűjtjük az IN$ 
változóban. Előzetesen a kurzort a kezdőpozícióra állítjuk, hogy a GET41 
utasítást a mező elejétől indíthassuk. 

A kurzort kikapcsoljuk és a G$-ban lévő karakter megjelenik a képernyőn. 


A rutin sorszámozása természetesen tetszőleges. Lényegesen megkönnyíti azonban a prog- 
ramozást egy olyan segédprogramokat tartalmazó könyvtár kialakítása, amelyben az egyes 
rutinokat azonos sorszámozással tároljuk. 

Az alábbiakban közöljük az INPUT rutin listáját. 


37 


0 REM xxx P27. ttXEXK 
8-8 


35000 REM ADATBEVITEL BILLENTYUZETRŐL 

35020 IN$z-"":CC-0:CSzPEEK (211) : C2-FEEK (214) : CP-O: MS-8B 

35040 FOKE204 , 0: REM KURZOR BE 

359069 GET G$:IF G$z"" THEN 350960 

35080 G6-ASC(6$):IF G6-13 THEN ON ML 60TO 5354099,35600 

35109 IF 6-28 AND CP-O THEN CF-CP-1 :GOSUB 360090:GOTO 55060:REM TORLES 
559120 IFG-ZDANDCCORANDPEEK ( 211) -CSTHENCC-CC- 1 : MSzMS- 1 : CP-CP- 1 : G05UB36900 : GOTOZSO 
60 

35150 IF 66-29 AND PEEK(211)2CS THENMS-MS-I1: G0SUB36000 : GOTOZSOSO 

35140 IF 6-148BANDCPtHMSCILTHENCPECF 4-1 : MS-MS 4 1 : GOSUB36800 : GOTO3S5O6€ : REM BESZURAS 
35160 IF G-29ANDFEEK(211)-C-CStIL-1THENGOSUBS6ÓOOB: GOTOZSB60: REM KURZOR JOBBRA 
35180 IFG-157ANDPEEK (211) 2CSTHENGOSUB36090909 : GOTOZ3SO6O : REM KURZOR BALRA 

35200 ON MN GOTO 35309 

25220 IF G247ANDCC-A ILANDFEEK (211) c-CStIL-1THENCC-CCt 1 : G0SUB36008 : GOTOZSZÓO 
35230 60TO35360 

35240 IFG247ANDFEEK (211) C-CStILTHENGOSUB36900: GOTOSS36O 

35300 IF GC48 OR (6257 AND GC65) OR(G6290ANDS( 193) ORG2218THEN35060 

35320 IFCC.ILANDFEEK(211)£-CStIL-1THENCC-CC-1 : 60SUB36090 : GOTOZSZOB 

35340 IFPEEK(211)-CCStILTHENGOSUB36OBB 

35560 IFCFOOTHENCP-CF-i 

355389 GOTOZSO6B 

39400 IFCCCIILTHENZ3S5060 

35609 FOKE295,2 

35920 IFFEEK (2097) C2OTHEN35620 

35640 FOKE294,1 

535660 FÜKE211 ,CS:FOKEZ214 , CZ 

35670 IFCC-OTHENRETURN 

35680 GETH1,G$: IFG$-CHK$(1535) THENIN$-LEFT$(IN$-T" " , IL) : RETURN 
55682 IN$-IN$t6$ 

35684 IF LEN(IN$) c ILTHENS56809 

35690 RETURN 

36000 POKE205,Z2 

536029 IFPEEK (297) C-OTHEN36020 

536040 FRINTGS$; : IFFEEK ( 211 ) -MSTHENMS-FEEK (211) 

36060 RETURN 


Hogyan használjuk a bemutatott programot? 

Tegyük fel, hogy egy raktárnyilvántartási rendszer adatbeviteli programjában az anyagok 
jellemzőit kell beolvasnunk a billentyűzetről (cikkszám, anyagnév, egységár, mennyiség stb.). 
Minden cikkszám hatjegyű numerikus adat. A cikkszámot beolvasó programrész a rutin 
felhasználásával: 


0 REM 346464 P2B. 364-EA 

44 

ve Zlőt 

199 IL-6rMN-B:ML-O 

119 PRINT "CIKKSZAM";:GOSUB 55999 
120 IN-VAL(IN$) 


A beolvasott cikkszám a programrész lefutása után az IN változóban áll rendelkezésre, és 
egészen biztosan hat numerikus karakterből áll. 

A cikkszám beolvasásához hasonló az anyagnév beolvasása azzal a különbséggel, hogy az 
anyagnév alfanumerikus adat és általában nem fix hosszúságú. Ha relatív file-szervezéssel 
dolgozunk, amelyben az adaimezők és a rekordok hossza rögzített, meg kell adnunk az 
anyagnév lehetséges maximális hosszát. Legyen a maximális hossz esetünkben 10 karakter, 
amelyet nem kötelező kitölteni: 
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9 REM 363£3kX P29,. 363E3tát 

5. 

672 

100 IL-10:MN-1:ML-1 

119 PRINT "MEGNEVEZES"$:GOSUB 359099 


Az IN$-ban visszakapott anyagnevet szükség esetén üres karakterekkel kiegészíthetjük 10 
karakter hosszúságúra. 
Az egységár általában változó hosszúságú adat, és természetesen csak numerikus karakte- 


reket tartalmazhat. Tegyük fel, hogy maximálisan 8 mezőszélességű számadatokkal dolgo- 
zunk: 


0 REM fixXx O PZO. HEt63EIt 

b Hl ; 

2 4 

199 IL-8:MN-O:Mt-—1 

110 PRINT "EGYSEGAR";:GOSUB 35899 
129 IN-VAL(IN$£) 


A beolvasott egységárat ismét az IN változóban kapjuk vissza, és folytathatjuk a programot 
a mennyiség beolvasásával. Reméljük, hogy ez a rutin hasznos szolgálatot tesz az Olvasónak, 
megkíméli a hibás adatbevitelből eredő bosszúságoktól, és a programban bemutatott trük- 


kök (a kurzor pozicionálása, az újszerű adatbevitel) mindenkit a könyv további tanulmányo- 
zására csábít. 
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3.6 A CBM 64-es , egere" 


A személyi számítógépesek táborában megjelent egy új fogalom: az egér. 

Milyen számítástechnikai eszköz rejtőzik e fedőnév mögött? A videojátékok ismerői már 
biztosan találkoztak az ún. pörgő golyóval, ami a joystickhoz hasonló, mozgást vezérlő 
berendezés. Újdonság, hogy míg a joystickkal a képernyőn megjelenő figurát csak nyolc 
lehetséges irányba, a pörgő golyóval a sík tetszőleges irányába elmozdíthatjuk. Az elmozdu- 
lás irányát két, (az X-, ill. az Y-tengelyre vonatkozó) ún. szögkódoló érzékeli, és továbbítja a 
számítógéphez. 

Az egér is a pörgő labdához hasonlóan, minden irányban szabadon mozgatható. A tokozott 
egeret az asztalon húzogatjuk. A surlódástól a golyó forogni kezd, miközben a két szögkódo- 
ló pillanatnyi állását a beépített interface továbbítja a számítógéphez. Megismerve a CBM 
64-es gép , háziállatának" képességeit, joggal merülhet fel a kérdés, hogy ez a tulajdonkép- 
peni játékszer milyen szerepet tölthet be egy komoly számítástechnikai feladat megoldásá- 
ban. 

A széles használói kör számára készített programnál vagy programrendszernél alapvető 
követelmény, hogy az áttekinthető és könnyen kezelhető legyen. Ezt a célt szolgálja az ún. 
menütechnika. A képernyőn megjelenő menü tartalmazza mindazokat a lehetőségeket, 
amelyek közül a használó a feldolgozás során választhat. A választást általában kétfélekép- 
pen végezhetjük: a menüpont azonosító kódját leütjük; vagy a képernyőn a kurzort a 
menüpontot azonosító szövegmezőre mozgatjuk. 

Ha megkérdezzük az ergonómiában jártas szakembert, ő a különféle megoldások közül 
biztosan elvetné a billentyűzeten való keresgélést. 

Legcélszerűbb a menütechnikát és az egér szolgáltatta mozgatási lehetőséget párosítani, így 
a gépkezelő egy karosszékben kényelmesen elhelyezkedve, esztétikusan megszerkesztett 
képernyőn a figura (vagy kurzor) mozgását a vele egyirányú mozgást végző egérrel irányít- 
hatja. A kívánt mezőre érve, választását a tűzgomb megnyomásával jelezheti. 

Feltehetően nem rendelkezik minden Olvasó CBM 64-es gépéhez egérrel, ezért egy olyan 
programmal illusztráljuk a fentieket, ami elvben a leírtak szerint működik, de a mozgatást nem 
egérrel, hanem a kettes portra csatlakoztatott joystickkal oldja meg. 

Tekintsük először a programban használt változók és tárcímek feladatait: 


Változók: 

RO$ Az RVS üzemmód bekapcsolásának karaktere 

RF$ Az RVS üzemmód kikapcsolásának karaktere 

A$ A mindenkori karakter 

B$ A RETURN megnyomása után az előtte leütött karaktert tartalmazza 

A Négy sort és négy oszlopot tartalmazó indexes változó, a képernyő adott sorában 
és adott oszlopában kijelzett karakter tárolására 

DR Az 56322-es adatirány-regiszter eredeti tartalma. (A program lefutása után az 
eredeti értéket ugyanis vissza kell állítani.) 

J A joystickról a kettes porton leolvasott érték 

JS A joystick oszloppozíciója 

JZ A joystick sorpozíciója 

PS A PRINT utasítás oszloppozíciója 

BZ A PRINT utasítás sorpozíciója 
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S 


B 


A joystick helyzetének oszlopa az A változó első indexének meghatározására 


(A(xy)] 
Ua. mint az előbbi, sorra vonatkoztatva. 


Az érintett tárcímek: 


56322 
58643 
58636 
781 
782 
204 
205 
207 


A kettes port adatirány-regisztere 

A kurzorpozíciót lekérdező rendszerrutin 

A kurzort pozicionáló rendszerrutin 

Az X indexregiszter tartalma, melyet SYS utasítással betöltünk vagy felülírunk. 
Ua. mint előbb az Y indexregiszterre vonatkozóan 

Ha értéke nulla, a kurzor be van kapcsolva, ha 1, ki van kapcsolva 

A kurzor villogásának frekvenciája 

Ha értéke nulla, a kurzor nem látható (KI fázis), ha nem nulla, látható (BE fázis). 


A következőkben lépésről lépésre elemezzük a program működését: 


1 


10-50 
60-560 


680 
700 


760 

780 
5020—5140 
5160 


5170 
5180-5340 


6010-6160 


Mivel a billentyűzet és a vezérlő portok a CBM 64-esen azonos perifériavonalat 
használnak, a billentyűzetet kikapcsoljuk. A program lefutása után az 56322 
tárcímre (adatirány-regiszter) visszatöltjük a DR változóban megőrzött eredeti 
tartalmat, egyébként ugyanis a gép nem érzékelné a billentyűzetet. A mintaprog- 
ramban csak a RUN/STOP billentyű él. 

A menü felépítése a képernyőn 

Az indexes változó feltöltése az 1-4. képernyősorban kiírt karakterek ASCII kódjá- 
val. A változóban tárolt kód alapján az első négy sor bármely pozícióján álló 
karaktert visszanyerhetjük. 

Az 5000-es sorban található szubrutinban kapott karakter kiírása a képernyőre. . 
A PRINT utasítást követő kurzorpozíciót megőrizzük a menükép későbbi visszaál- 
lításához (720-as sor). Egyébként a teljesen kitöltött képernyő sorai új kiíratásnál 
feltolódnának. : 
Az új mező felépítése közben megváltozott kurzorpozíciót visszaállítjuk. 

Ha az éppen leütött karakter a RETURN, az adatbevitel véget ér. A beolvasott 
adatot a B$-ban tároljuk. 

A kurzorpozíció tárolása után a kurzort kikapcsoljuk, majd a nulladik pozícióra 
állítva ismét bekapcsoljuk. 

A botkormány aktuális értéke a kettes portról a J változóba kerül. 

Késleltető ciklus a kurzor ellenőrzéséhez. 

A kurzor mozgása követi a joystick mozgatását. 

A tűzgomb megnyomása után (5260) a kurzor alatti karakter bekerül az A$ 
változóba (6010) 

A kurzorpozíció alapján kiszámítjuk az A változó indexeit, majd az ACII kódból 
a megfelelő karaktert (A$) (6060) 

A C-64-es duplasor-szervezésű, így az oszlopszámláló maximális értéke 80, annak 
ellenére, hogy a képernyősor maximum 40 karaktert tartalmazhat. A 6050-es 
sorban korrigáljuk az A változó oszlopindexét. 


A program kezelése rendkívül egyszerű. A RUN parancs után a képernyő bal felső sarkában 


megjelenik 


a kurzor, amit a kettes portra csatlakoztatott joystickkal tudunk mozgatni. Ha a 


kurzor azon a karakteren áll, amelyre szükségünk van, nyomjuk meg a tűzgombot. A karakter 
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bekerül a B$ változóba. A helyes választást ellenőrizhetjük, hiszen a választott karakter 
néhány sorral lejjebb megjelenik a képernyőn. Mindaddig, míg a RETURN-t le nem ütjük, 
a program gyűjti a kiválasztott karaktereket a B$ változóban. Az adatbevitel végét jelző 
RETURN után egyrészt a B$ változó tartalmát tetszőleges célra felhasználhatjuk, másrészt 
folytathatjuk az adatbevitelt a következő adatsor összeállításával. 

A program listája: 


9 REM KExx P31. d636363E 

4.-:§ 

2: 

4 DR-PEEK(56322) : POKE 56322 ,224:R0O$-CHR$ ( 18) : RF$zZCHRÉ(144) 

5 PRINT CHR$(147) :GOSUB 19:GOTO 60 

18. PRINT CHRECIDI" ZU Z2Z345S8a7a? izek 
ZT RINT SE RBEDEFBBHISKL gé. 

30 FRINT " MNOFERSTUVWXYZ "gy 


40 PRINT " "RO$"RET"RF$" "RO$"DEL"RF$" "RO$"F1I"RF$" "RO$"F3"RF$" "ROS"FS"RF$; 
45 PRINT " "RO$S"F7"RF$" he s 
59 RETURN 

60 DIM A(4,40) 

199 FOR 1-9g TO 13 

129 AC(W,I4241)—-I-(444 

140 NEXT I 

180 FOR I-9g TO 12 

200 A(15112t4t2)—It64 

229 NEXT I 

2609 FOR 1-0 TO 15 

289 A(29I32-41)—1477 

399 NEXT I 

349 FOR I-O TO 3 

369 A(3,1)-—153 

389 NEXT I 

A4AZ29 FOR I55 TO 7 

449 A(3,1)-29 

469 NEXT I 

5909 FOR I-9 TOSZ 

SZO A(3,I6r249)-I4133 

569 NEXT I 

589 PRINT:PRINT 

6090 B$-"":Xz:FRE(0D) 

649 GOSUB 5098:REM 

689 PRINT A$; 

709 SYS 58643: PZ-PEEK(211) :PS-PEEK (214) 
729 GOSUB 19 

760 POKE 211,PZ:POKE 214,PS:REM SYS 58636 
789 IF ASC(A$)—13 THEN 600 

8099 B$-B$-IA$ 

829 GOTO 649 

5009 REM 

5001 REM tást JOYSTICK 

59092 REM 

50290 SYS 58643: REM 

5969 PZ-PEEK (781) : PSz-PEEK (782) 

5970 POKE 2095,3 

59080 IF PEEK(297) THEN 53980 

549090 POKE 2094,1 

5100 POKE 781,0:POKE 782,9:47-B:4JS-0 

5129 SYS 58636:REM JOYSTICK KURZOR BEALLITASA 
53149 POKE 2094,0:REM A KURZOR BEKAPCSOLÁSA 
5169 J-PEEK(563289) : REM A JOYSTICK LEKERDEZESE 
5179 FOR I-9g TO 59 :NEXT I 

5189 IF (JAND1)b-0 THENJZ-JZ—1 

5200 IF (JAND2)-0 THENJZ-JZt1 

5229 IF (JAND4)-0 THENJS-ZJS-1 

5249 IF (JAND8)-0 THENJS-JSt-1 
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IF (JAND16)-B8 THEN 6009 
IF JZCG THEN JZ-0 

IF JS(CB8 THEN J5-B 

IF JS339 THEN JS-39 

IF JZ33 THEN JZ-3 

POKE 295,3 

POKE 294,1 


POKE 781,JZ:POKE 782,JS:SYS 58636 


6GOTO 5149 
REM 


REM dtátátátit  HOZZARENDELES A KARAKTERHEZ 3636363é3t 


REM 
POKE 295,3 
IF PEEK(287) THEN 6815 
POKE 294,1 


SsvYvs 58643:REM KURZORPOZICIOÓO BETOLTESE 


Z-PEEK(781) : SzPEEK (782) 
IF S239 THEN S-S-49 
A$-CHR$(A(Z,S5)) 

POKE 781,PZ:POKE 782,PS 


SYS S58656:REM KIIRASI POZICIÓ BETOLTESE 


RETURN 
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4. FEJEZET 
BASIC HALADÓKNAK 


4.1 BASIC sor előállítása BASIC-ből 


Megkísérelte már az Olvasó egy tökéletesen általános program megírását? 

Az általános megjelölés alatt azt értjük, hogy a program tetszés szerinti változókkal és 
konstansokkal tetszés szerinti aritmetikai műveletet tud elvégezni. Az olvasó válasza feltehe- 
tően: nem, hiszen a program lényegét tekintve egy előre megadott algoritmus, amely a 
feldolgozás alatt nem változik. 

Haladó programozók fejében azonban előbb utóbb felmerül egy saját szövegszerkesztő 
program megírásának gondolata. Ha a tárolt szövegben vannak numerikus mezők, azokkal 
többnyire aritmetikai műveletet kell végezni. 

Egy kereskedő számláinak feldolgozása közben például összegezni kell az egyes számlákon 
szereplő értékeket, összegezés után szorzási művelettel ki kell számítani a többletérték-adót, 
majd a kapott számhoz hozzá kell adni a csomagolás és szállítás költségét. 

A feladat algoritmusát nagyon könnyű áttekinteni, és úgyszintén könnyű a BASIC nyelvű 
programot elkészíteni. Ezt a programot azonban egy szőnyegkereskedő feltehetően már nem 
tudja használni, hiszen a számlaérték nála az eladott termék egységárától és a méterben 
megadott mennyiségtől függ. Világos, hogy a szőnyegkereskedő számára más képleteken 
alapuló, új programot kell készíteni. 

Ha így folytatjuk a gondolkodást, kiderül, hogy ahányféle kereskedő van, annyiféle egymástól 
alig eltérő, de mégis más-más programot kell írni, ami nem gazdaságos. Sokkal praktikusabb 
lenne, egy olyan általános célú programot készíteni, amelynek feldolgozás közben meg lehet 
adni, hogy a tárolt adatok között mikor milyen aritmetikai műveletet végezzen el. 

Eddigi ismereteink alapján ez lehetetlen, hiszen azokat az aritmetikai kifejezéseket, amelyek- 
ben egy-egy változó értéket kap, előzetesen BASIC utasításként be kell építeni a programba. 
Most bemutatunk egy olyan programot, amely képes arra, hogy futás közben beépítsen (saját 
magába) egy kívülről megadott BASIC sort. A program gépi kódú részt is tartalmaz, de ez 
ne okozzon különösebb gondot az Olvasónak, hiszen közöljük a BASIC betöltőprogramot is. 
Ismerkedjünk meg a programban használt változókkal; 


TM " Atár végcíme 

VL A változóterület kezdőcíme (alsó byte) 
VH A változóterület kezdőcíme (felső byte) 
VT A változóterület teljes kezdőcíme 

BU  Azinput pufferen belüli mutató 

BC  Arwpuffer feltöltését vezérlő változó 
CA$ A tbeírt aritmetikai kifejezés 

RE Az eredmény a rutin lefutása után 


Érintett tárcímek: 
45-46 A változóterület kezdete (mutató) 
47-48 Az indexes változók kezdete (mutató) 


49-50 A füzérváltozók kezdete (mutató) 
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56 A BASIC terület vége (HB) 

40448 Az előállított BASIC sor (50100) 

40704 Annak a rutinnak a kezdete, amely az input puffer tartalmából előállítja a BASIC sort 
és elhelyezi a 40448-as címtől kezdve. 


A program dokumentációja: 


1 A RAM-top-ot beállítjuk 40448-ra, efölött helyezkedik el ugyanis a gépi kódú rutin. 

2-6 A változókezdet-mutatót átállítjuk, mivel az 50099-és kapcsolósor ide kerül. 

10-14 Előkészítjük az 50100 és 50110-es sorok tárbeli helyét. A tényleges sorokat majd a gépi 
kódú rutin készíti el, itt egyszerű PRINT és RETURN utasításokat írunk a helyükre. 

20-30 Az 50099-es kapcsolósort elhelyezzük közvetlenül a BASIC program mögé. 

32-50 Gépi kódú programrész 

60-70 A gépi kódú részt a 40704-es címtől kezdve elhelyezzük a tárban. 

50040 A BASIC kifejezés beolvasása a CA$ változóba. Az adatbevitelnél csak a kifejezést kell 
megadni a teljes egyenlőség helyett, azaz a program az ,RE— " utáni részt kéri. 

50050 A CA$ változó tartalmát áttöltjük a sorhoz tartozó input pufferbe (50075-ig). 

50080 Ugrás a gépi kódú részre, ahol a BASIC sor előállítása történik. 

50095 Az aritmetikai kifejezés kiértékelése, az eredmény az RE változóba kerül. 


Az érdeklődőknek közöljük a gépi nyelvű programot is. 


OG REM ttíttk P32. 4tatt-tt 


1: 

a. § 

109 : 9FOG  A5 7A . LDA §$7A 3A BASIC-MUTATO TAROLASA 
110 : 9FO2 BD FF 9F STA $9FFF 

120 : 9FO5 A5 7B LDA $7B 

150 : 9FO7 BD FE 9F STA $9FFE 

1490 : 9FOA A5 14 LDA $14 

159 : 9FOC BD FD 9F STA $9FFD 

1609 : 9FOF A5 15 LDA $15 

178 1: 9FI1 SD FC 9F STA $9FFC 

189 : 9F14 A9 OB LDA $$OB zAZ INPUTPUFFER KEZDETE 
199 : 9Fi6 85 7Aa STA $7A 

209 : 9F1g 209 79 A5 JSR $A579 3A "CRUNCH" RUTIN HIVASA 
210 : 9FIB AZ 00 LDX 4? 

229 : 9FID BD 09 02 XX LDA $02009(X) ;A SOR ATVITELE A 49453 CIMRE 
2530 : 9F20 FO 06 BERG YY 3 UGRAS , HA VEGE 

2409 : 9F22 9D 05 9E STA $9E05(X) 

250 : 9F25 E8 INX 


260 
270 


9F26 DO F5 BNE XX 
9F28 A? SA YY LDA $$53A zA SOR MOGE 


: 
: 
289 : 9F2A 9DO5 STA $9EOG5(X) 
27909 : 9FZ2D A? 8E LDA ú$$BE 3A "RETURN" ELHELYEZESE 
309 : 9F2F 9D 06 STA $9EM6(X) 
310 : 9FS52 A? 009 LDA §O zA SOR VEGENEK TAROLASA 


320 : 9F34 9D 07 
330 : 9F37 9D 08 


STA $9E07(X) 
STA $9EGB(X) 


AA A ámám A A 


549 : 9F3A 9D 09 $9E09(X) 

350 : 9F3D AD FF LDA $9FFF :A BASIC-MUTATO VISSZATOLTESE 
360 : 9F49 85 7A STA $7A 

370 : 9F42 AD FE LDA $9FFE 

389 : 9F45 85 7B STA $7B 

398 : 9F47 AD FD LDA $9FFD 

409 : 9F4A §5 14 STA §$14 

410 : 9F4C AD FC LDA $9FFC 

420 : 9F4F 85 15 STA $15 

AS : 9FS51 60 RET ; VISSZA A BASIC-RE 
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A következő (P.33) program két részből épül fel: 

Az 1—70-es programsorokra csak a futtatás elején, egyszer ugrunk. Nagyon fontos, hogy ezek 
a sorok mindig elöl legyenek, tehát nem szabad a programot átsorszámozni! Ellenkező 
esetben ugyanis az 1-—6-os sorokban szereplő változók értékét elronthatjuk. 

A második rész a CA$-ban megadott képletből BASIC sort készít, kiértékeli a kifejezést és az 
eredményt a RE változóba helyezi. 

Ha futtatás közben nem akarjuk megváltoztatni a kifejezésben használt műveleteket, az 
50100-as sort átugorhatjuk. Ha az Olvasó a programot rutinként szeretné használni, ügyeljen 
arra, hogy a főprogram sorszámozása csak 49999-ig tarthat. A program utolsó sorainak 
számozását feltétlenül 50000-től kell kezdeni. 

A képlet meghatározásakor csak az egyenlőségjel utáni részt kell beírni, pl.: 75/2£V1 — 
V2-t SOR(V3). 

A kifejezés értékét az 50050-es sorban kapjuk meg. 


FIGYELEM! 


A programot az első futás után már nem szabad megváltoztatni! Ha erre mégis szükség van, 
ki kell adnunk egy NEW parancsot, majd ismét be kell tölteni a programot és betöltés után 
módosítani. 

A programból előállított BASIC sor ugyanis nem a BASIC program alá, hanem a tár tetejére 
kerül. Az ilyen jellegű változtatás után egy BASIC sor törlését, vagy új sor beillesztését nem 
tudja hibamentesen elvégezni az operációs rendszer. 


B REM ttátáttt PS3.  dtátátdt 

1 POKE 56,158:CLR 

2 IF PEEK(45) 422255 THEN POKE 45,2-—-(256-PEEK(45)):POKE 46,PEEK(46)-41:GOTO 6 
4 POKE 45,PEEK(45)42 

6 POKE 47,PEEK(45) :POKE 48,PEEK(46):POKE 49,PEEK(45):POKE 50,PEEK(46) 

8 TM-49448 

19 POKE TM,O:POKE TM-$1,7:POKE TM-2,í58:POKE TM-t3,18€:POKE TM-4,195 

12 POKE TMr5,153:POKE TMt6ó,O:POKE TMr7,13:POKE TM4B,158:POKE TM-9,190 
14 POKE TM61O,195:POKE TMt-11,142:POKE TM--12,0:POKE TM--13,0:POKE TM-r14,O 
29 VLEPEEK (45) : VH-PEEK (46) : VT-VHE256--VL 

30 POKE VT-4,1:POKE VT-3,158:PÚKE VT-2,179:POKE VT-1,195 

32 DATAL65,122,141,255,159,165,123,141,254,159,165,20,141,253,159,165,21 
33 DATAI41,252,159,169,11,133,122,32,121,165 

34 DATA162,9,187,9,2,240,6,157,5,158,232,208,245,169,58,157,5,159 

36 DATA 169,142,157,6,158,169,9,157,7,159,157,8,158,157,9,158 

4Gg DATA 173,255,159,133,122,173,254,159 

59 DATA 133,123,173,253,159,133,29,173,252,159,153,21,96 

60 FOR I549704 TO 49785 

70 READ MC:POKE I,MC:r NEXT I 

59999 REM KALKULATOR KEREK ÁERBEAE E 

50940 BU5SZ3: INPUT"KALK. "; CAS 

59450 POKEBU , ASC("R" ) : POKEBU-1 , ABC ("E") : POKEBUH2 , ASC ("5") : BU-BU--2 

59960 FOR I-1 TO LEN(CA$) . 

59979 POKE BUtI,ASC(MID$(CA$,I,1)):NEXT I 

59073 BC-LEN(CA$) 1 

59975 POKE BU4$BC,O:POKE BU-tBCt1,O:POKE BU-BC-2,90 

599080 SYS 49704 

59495 GOSUB 50109 

59997 RETURN 


Végezetül ejtsünk néhány szót a program továbbfejlesztési lehetőségeiről. 
Tegyük fel, hogy egy speciális számítástechnikai feladat programozástechnikai oldalról oda 
vezetett, hogy BASIC sort kellett beépítenünk egy programba futás közben. Az első lépés 
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megtétele további általánosításra ösztönöz: ki kellene dolgozni egy olyan módszert, amellyel 
nemcsak egy-egy sort, hanem ezek láncolatát is — beleértve a ciklusokat és ugrásokat is — 
be lehet építeni a futó programba. 

Az ismertetett eljárást az egymást követő BASIC sorok tárbeli elhelyezésével kell bővítenünk, 
ügyelve arra, hogy a gépi kódú rutin a beolvasott BASIC sort ne azonos tárterületre, hanem 
a sorok hosszától függően egymás mögé helyezze. 

Gondoskodni kell arról is, hogy a folytatósor mutatóját (minden BASIC sor első két byte-ja) 
megfelelőképpen beállítsuk, ami egyetlen sor beillesztésénél nem okozott problémát. 
Reméljük, sikerült megsejtetni, hogy ez a problémakör tulajdonképpen egy programgenerátor 
elkészítésének alapelveit érinti. Programgenerátor alatt egy olyan programot értünk, amely 
egy adott témakörben felhasználható adott programnyelvű (nem feltétlenül BASIC) progra- 
mok önálló megszerkesztésére, azaz tulajdonképpen egy ún. makro-interpreter. 
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4.2 A BASIC interpreter átmásolása a RAM-ba 


A Commodore 64-es előnye a többi Commodore gépekhez képest az a lehetőség, hogy a 
processzor teljes címterülete (64 kbyte) áthelyezhető a RAM területre. A teljes operációs 
rendszert, a BASIC interpretert, átalakíthatjuk anélkül, hogy a ROM egyetlen alapelemét ki 
kellene cserélnünk. A módosított operációs rendszert, ill. interpretert át kell töltenünk a 
RAM-ba, majd közölni kell a géppel, hogy a ROM-ot kapcsolja ki, és helyette aktivizálja a 
megfelelő RAM területet. (Ez utóbbi egyetlen POKE utasítást igényel.) 

Ha nem akarjuk a teljes BASIC interpretert kicserélni, hanem csak bizonyos részeit megváltoz- 
tatni — például egy saját függvényt definiálni, vagy meglévő függvényeket, utasításokat 
módosítani —, be kell tölteni a teljes interpretert a RAM-ba, ahol minden változtatást elvégez- 
hetünk, majd átkapcsolva RAM területre, dolgozhatunk a saját igényünk szerint kialakított 
interpreterrel. 

Nézzük meg közelebbről a Commodore 64-es társzervezését! 

Amikor a gépet bekapcsoljuk, automatikusan működésbe lép a ROM-beli operációs rendszer 
és a BASIC interpreter. PEEK utasítással olvasva erről a területről, a tényleges ROM tárcímek 
tartalmát kapjuk meg. Ezzel szemben, ha POKE utasítással akarunk írni a tárba, az mindig 
a RAM területre vonatkozik, függetlenül attól, hogy a ROM vagy a RAM van bekapcsolva. 
Következésképpen egy egyszerű ciklussal átmásolhatjuk a ROM-beli operációs rendszert az 
alatta fekvő RAM területre: 


FORI-A TO E : POKE I, PEEK(I) : NEXT 


ahol A a tárterület kezdőcíme, E pedig a végcíme. A BASIC kezdő-, ill. végcíme: 40960($A000) 
és 49151($BFFF); az operációs rendszeré: 57344($E000) és 65535($FFFF). 

Másolás után mindaddig továbbra is a BASIC-ROM működik, amíg a változást nem közöljük 
a géppel. A ROM/RAM átkapcsolást az 1-es tárcím tartalmának (processzor port) beállításá- 
val lehet megvalósítani. Alapállapotban az 1-es tárcím tartalma 55. Ha a BASIC-et a RAM-ban 
akarjuk futtatni, a POKE 1,54 utasítást kell végrehajtanunk. 

Figyelem! Ezt a POKE utasítást csak a fenti ciklus (40960-tól 49151-ig) lefutása után szabad 
kiadni, ellenkező esetben a gép működésképtelenné válik! Ha az operációs rendszert is 
áthelyezzük a RAM-ba, a RAM-beli futtatás csak a BASIC-ROM-mal együtt lehetséges, ugyan- 
is ha átkapcsolunk erre a RAM területre, automatikusan bekapcsolódik az alatta lévő BASIC- 
ROM is (I. 2.6 fejezetet). Az átkapcsolást a POKE 1,53 utasítás eredményezi. A BASIC interpre- 
tert a következő lépésekben módosíthatjuk: átmásoljuk a ROM-ból a RAM-ba; végrehajtjuk 
a megfelelő változtatásokat; tároljuk azt a programot, amellyel a változtatást végeztük (hogy 
legyen módunk megismételni az eljárást, ha hibát követtünk el). 

A biztonsági művelet után kapcsoljunk át a BASIC-RAM-ra! 
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4.3 A negatív számok kiküszöbölése az FRE függvény 
értékkészletéből 


Megtörtént már az olvasóval, hogy bekapcsolás után a Commodore 64-es gépe 38911 
szabad byte-ot jelzett, de a 


PRINT FRE(0) 


utasítás — 26627 szabad byte-ról számolt be? 

Ahhoz, hogy a tényleges értéket megkapjuk, a kapott negatív számhoz hozzá kell adni 2""-t, 
azaz 65536-ot. Bár ez nem tragikus, mégis kényelmetlen. Mi az oka az eltérésnek? 

A szabad tárterület kiszámítását elvégzó rutin a $837D tárcímen kezdődik (I. ,A 64 Belső 
felépítése" c. könyvet). A számítás előtt a fölösleges füzérek törlődnek és így ezek a tárcímek 
felszabadulnak. A számítás menete: a füzérváltozók kezdetéből ($33/$34) le kell vonni a 
tömbök végét ($31/$32). A kapott 16 bites egész típusú értéket át kell alakítani lebegőpontos 
számmá. Az egész típusú számot a rendszer olyan előjeles számként kezeli, melynek értéke 
— 32768 és 32767 közé esik. Ha ugyanezt a számot pozitív számként értelmezzük, értéke 0 és 
65536 közé esik. Amíg a korábbi Commodore gépeken a szabad tárterület nem haladta meg 
a 32767 byte-ot, addig nem is volt semmi hiba. A Commodore 64-es FRE rutinját úgy kell 
megváltoztatni, hogy az egész típusú (90) konstans lebegőpontossá alakításakor a számot 
pozitív értékűnek tekintse, mint pl. a BASIC sorszámoknál, amelyek köztudottan 32767-nél 
nagyobb értéket is felvehetnek. 

A FRE rutint az alábbiak szerint kell módosítani, és egy olyan területre keil elhelyezni, melyet 
az interpreter nem használ: 


B REM átiátátát P34. att4tit 


28 

b égk 

1099 : B38D 4C€C 55 BF JMP $BFSS 
110 : 8399 EA NOP 

11 d 

tí2-s 

129 : BF55 A5 34 LDA $34 
1539 : BF57 ES 52 SBC $32 
1409 : BF59 AZ 00 LDX t$00 
159 : BF5B 86 OD STX $0D 
160 : BFSD 85 62 STA $62 
170 : BFSF 84 63 STY $63 
1809 : BF6ól1 AZ 90 LDX 4$909 


199 : BFó3 4C 49 BC JMP $BC497 


Az átmásolást a RAM-ba, majd a rutin betöltését az alábbi kis program végzi el: 


0 REM EXitX PZ35S. 36646 

5 öt ) 

47 tk 

100 FOR 1-40960 TO 49151 
119 POKE I,PEEK(I):NEXT 

120 A-114909643425618416t413 
1509 FOR I-A TO Ar3 

140 READ X:FOKE I,X:NEXT I 
1598 A-11r49096415£25615£16t5 
160 FOR I-A TO Atr16 

170 READ X:POKE I,X:NEXT I 
180 POKE 1,54 

2900 DATA76,85,191,254 

210 DATA165,52,229,50,162,9,134,13,133,98,132,99 
220 DATA162,144,76,73,18BB 
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4.4 Visszatérés a BASIC programba LIST parancs: útán ő 


A BASIC programban elhelyezett LIST utasítás végrehajtása után a vezérlés visszakerül a 
rendszerhez, azaz a gép közvetlen üzemmódban folytatja a munkát. Ez meglehetősen zavaró, 
ha pl. olyan sorokat akarunk listázni, amelyek DEF FN utasítással meghatározott függvénye- 
ket tartalmaznak (azért, hogy az éppen feldolgozás alatt álló függvény képlete látható legyen 
a képernyőn). Hasonlóképpen, azt sem tudjuk megoldani, hogy egy programról egymás után 
több listát készítsünk a következő ciklussal; 


FORI-1TO2: LIST : NEXT 


Alakítsuk át saját igényeinknek megfelelően a rendszer LIST utasítását! A LIST utasítás végére 
rakjunk be egy visszaugrást a BASIC melegstartra, azaz helyezzünk el itt egy RETURN 
utasítást. A LIST végrehajtása előtt tárolnunk kell a programszöveg-mutató aktuális helyzetét 
- ez ugyanis listázás közben megváltozik —, hogy listázás után a megfelelő helyre vissza 
tudjunk térni. A szükséges rutin végrehajtja a feladatot és visszatér a BASIC-be. 

A következő gépi kódú rutin tartalmazza a BASIC-ROM átmásolását is, így elkerüljük a lassú 
POKE ciklust. A gépi kódú rutint a kazettapufferbe helyeztük, így a SYS 828 utasítással 
indíthatjuk. Hívás után a LIST utasítást programmegszakítás veszélye nélkül használhatjuk. 


9 REM eExxr P3O. JEgEáA 

d 128 

asz KA 

10 : wz 828 ; KAZETTAPFUFFER 

20 : CHRPTR. — £7A 3; PROGRAMMUTATO 

50 : CHRGOT  - $79 ;AZ UTOLJARA BETOLTOTT KARAKTER 
40 : LIST z $A69C :;LI1ST-RUTIN 

50 : CSTVEC  z $£AD4A2 :A LIST RUTIN MUTATOJA 
60 : NEXTST  - $A8FB : A PRG-MUTATO BEALLITASA 
70 s: CRLF z $AAD7 KOCSI VISSZA 

200 : AZÉ: LDX 432 552 LAP ATMASOLASA 

210 : AT AD LDA HO$FADOG ; VISSZA A BASIC KEZDETRE 
220 : Ag 00 LDY  §O 

250 : 84 22 SÍV á22 

240 : g5 23 STA $23 

250 : Bi 22 LDA (422) ,Y ;MASOLO CIKLUS 

260 : Sa. éz STA ($229,;Y 

270 : CB INY 

2809 : DO F9 ENE LOOF 

290 : E6 253 INC 23 

300 : CA DEX 

310 : DO F4 BNE LOOP 

320 : A? 69 LDA 4$$GD ;RTS-KOD 

330 : BD 14 A7 STA 3$A7I4A 

340 : A? EA LDA $$EA : NOP-KOD 

550 s: BD BB A6 STA $AGBB 

360 : 8D BRC A6 STA $AGEC 

5378 s R7 6D LDA HC(NEWLST-i ;AZ UJ LIST CIME 

389 : SD 42 Ap STA LSTVEC 

390 : Ag 03 LDA tH-NEWLST-1 

4090 : gD 43 Ap STA LSTVECEI 

410 : A? 36 LDA tH£$36 ; ATKAPCSOLAS A RAM-RA 
429 : gs o1 STA 1 

430 : 60 RTS 

440 : A5 7A NEWLST LDA CHRPTR 

450 : 49 FHA 3: PRG-MUTATCU TAROLASA 

460 : A5 7B LDA CHRFTRtI 

470 : 48 FHA 

4809 : 29 79 00 JSR CHRGOT ;A KÖVETKEZŐ KARAKTER BETOLTESE 
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490 : 0377 29 9C A6 JSK 
5300 : OZ7A 20 D7 AA JSR 
510 : 037D 68 FLA 
320 : 037E 85 7B STA 
330 : 03989 68 PLA 
540 : 0381 85 7A SsTA 
390 : 05383 20 FB AB JSR 
560 : 0386 4C 79 00 IMF 
A BASIC betölt. 


0 REM kítxx PZ37Z. XXXI 


100 
110 
120 
150 
140 
150 
160 
170 
189 
190 
200 


FOR I-828 TO 904 
READ X:FUKE I,X:SzStXzNEXT 


LIST :LIST VEGREHAJTASA 
CRLF :KOCSI VISSZA 
CHRPTR-1 
:A PRG-MUTATO VISSZATOLTESE 
CHKPFTR 
NEXTST MUTATÓ A KÖVETKEZŐ UTASITASRA 


CHRGOT  ;AZ UTOLSO KARAKTER BETOLTESE 


DATA 162, 32,169,160,160, 0,132, 34,133, 35,177, 34 
DATA 145, 34,200,298,249,239, 35,202,208,244,169, 96 
DATA 141, 29,167,169,234,141,187,166,141,188,166,169 
DATA 199,141, 66,160,169, 3,141, 67,160,169, 54,133 
DATA a 98, ÜSS, 122, 72, 165. 125, 72, SZ1Í2Í, 6; 32 
DATA 156,166, 32,215,170,194,133,123,194,133,122, 32 


DATA 248,168, 76,121, 0 


IF S£29613 THEN PRINT"HIBA A DATA SORBAN. ."!!":END 


PRINT"OK. !" 


Futtassuk le az alábbi BASIC programot, miután végrehajtottuk a SYS 828 utasítást. 


0 REM ttXxK PZOR.  3646463t 


1 : 
23 
100 
110 
120 


PRINT "LIST-TESZT" 
LIST 120 
GOTO 1090 
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4.5 Változó sorszámok a GOTO, a GOSUB és a RESTORE 
utasításokban 


Ebben a fejezetben a BASIC interpreter egyik célszerű módosítását ismertetjük: 
Programjainkban az elágazások, ill. szubrutinhívások megszervezésénéi mindig konstans 
sorszámokat kell megadnunk. Kényelmesebb lenne, ha a hivatkozott sorszámokat a progra- 
mon belül kiszámíthatnánk vagy beolvashatnánk, mint az alábbi kis programrészletben: 


100 INPUT "SORSZAM" ; Z 
110 GOTOZ 


Ezzel a megoldással helyettesíthetnénk a terjedelmes ON...GOTO... utasítást. Ugyanez vonat- 
kozik a GOSUB utasításra, itt sem ártana a kiszámítható ugrási cím! 

Ugyancsak jelentős lépés lenne a RESTORE utasításban megadható változó sorszám. Ha 
több különböző összefüggő adatblokkal dolgozunk, amelyeket többször végig kell olvas- 
nunk, a READ-DATA mutatót mindig az adatok elejére kell állítanunk, majd sok időt pazarolva 
bizonyos részeket át kell olvasnunk, míg el nem érjük a kívánt adathalmazt. Sokkal egysze- 
rűbb lenne, ha a RESTORE utasításban megadhatnánk egy sorszámot, és az olvasást 
azonnal a keresett helyen kezdhetnénk. 

: A GOTO utasítás megváltoztatása csak néhány POKE utasítást igényel. A sorszám betöltését 
végző rutint egy olyan rutinnal kell helyettesítenünk, amely beolvassa a kívánt aritmetikai 
kifejezést, és ebből előállítja az ugrási címet. A GOSUB utasításnál hasonló a helyzet, mivel 
a GOSUB végrehajtása GOTO - hívással történik. 


ABAO 20 COO2 JSR  $02CO 
02CO 20 BA ADJSR  ADB8BA 
02C3  4CF7B7ZJMP $B7F7 


A szükséges kiegészítést a $02C0 (704) tárcímre helyeztük, ez ugyanis mindaddig kihaszná- 
latlan, amíg a 11-es sprite-tal nem dolgozunk. 


Nézzük a módosító programot: 


Ö REM txt P39/1. 36364t16 
1: 

21 

100 FOR I-499609 TO 49151 
119 POKE I,PEEK(I) : NEXT 
120 A-104409649256110116 
1539 FOR I-A TO A42 

140 READ X:POKE I,X:NEXT 
159 A-704 

169 FOR I-A TO A45 

170 READ X:POKE I,X:NEXT 
180 DATA 32,1972,2 

1990 DATA 32,138,173,76,247,183 


Ezzel elintéztük a GOTO és a GOSUB utasításokat. A RESTORE megváltoztatása nem ennyire 
egyszerű, mivel ebben az esetben az alap BASIC nyelv semmiféle sorszám használatát nem 
engedi meg. 

Meg kell különböztetnünk a sorszámot viselő és sorszám nélküli RESTORE utasítást. A helyzet 
persze nem annyira nehéz, mint ahogyan látszik! 
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BD REM ttitex PAD. Hxxr 

; EB ő 

1728 3 

109 : O2Cá DB 03 BNE  $OZ2CB VAN MEG KARAKTER 

119 : O2CB 4C 1D AB JMP $ABID 3UGRAS A REGI RESTORE UTASITASRA 

129 : OZCB 29 CO 02 JSR $02CO ; SORSZAM BETOLTESE 

130 : O2CE 29 13 A6G JSR $A6153 A SORSZAMNAK MEGFELELÜ CIM KIVALASZTASA 
140 : OZDI 38 SEC 


150 : O2D2 AS 5F LDA $£$5F jA CIM (L0) 
160 : O2D4 E? 01 SBC HíOI 31 LEVONASA 
179 : O2D6 A4 60 LDY $60 jA CIM (HI) 
189 : OZ2DB 4C 24 AB JMF §$AB24 jA TOVABBIAKBAN AZONOS A REGI RESTORE-RAL 


A BASIC betöltő: 


A REM eti P39/2. 9636343t 

a köbe 

be gi 

300 A-2ZEZSOTIZEi6ót6 

319 FOR I-A TO Ar29 

5290 READ X:POKE I,X:NEXT 

334-DATA 298,3,76,297,168,32,192,2,32,19,166 
340 DATA5S6,165,95,233,1,164,96,76,36,168 


A következő két sorban közöljük az interpreterrel az új RESTORE rutin kezdőcímét;: 


0 REM txtt4 P3IO/Z. téttidE 
: sül 
8 

400 FOKE 40996, 197 : POKE 40997, 2 
410 POKE 1, 54 


A 410-es sorban átkapcsolunk a RAM-ra. Ettől kezdve a RESTORE utasítást háromféleképpen 
használhatjuk: sorszám nélkül mint eddig, sorszámmal, végül kifejezéssel, amelyet kiértékelve 
megkapjuk a kívánt sorszámot. Mindhárom esetben a következő READ utasítás az adott 
sorban a legelső adatnál kezdi az olvasást. Ha rossz sorszámot adtunk meg (pl. olyat, amely 
nem létezik), nem kapunk hibajelzést, hanem a mutató automatikusan a következő sorra 
ugrik. 
Nézzünk néhány példát, amelyek használhatóak a módosítások után: 

100 GOTO 200 

200 RESTORE 10 

500 RESTORE 

800 GOSUB Ax2- 100 s 


900 RESTORE X$101 500 
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4.6 A MID$ utasítás 


Az Olvasó előtt biztosan ismert a MID$ függvény, amellyel egy füzér valamely részét leválaszt- 
hatjuk. Futtassuk le az alábbi néhány soros programot: 


0 REM tíxx P41i. xxxrr 
1: 

2: 

1099 A$-"COMMODORE" 
119 B$-MID$(A$,4,5) 
120 PRINT B$ 


A futtatás eredménye: 
MODOR 


Az alábbiakban bemutatunk egy olyan MID$ függvényt, amellyel nemcsak kiemelhetjük a 
füzér valamely részét, hanem helyettesíthetjük is azt egy tetszőlegesen megadott karakterso- 
rozattal: 


0 REM ttitttt P42. ítt 

dr db 

6 

100 A$z"COMMODORE" 

118 MID$(A$,4,5)—"12345" 
128 PRINT A$ 


A 110-es sorban az eredeti füzér öt karakterét a jobb oldalon megadott öt karakterre cseréljük 
(a 4. pozíciótól, 5 karakter hosszan!). 

Az eredmény: 

Az új MID$ nélkül, alap BASIC-ben ugyanezt a műveletet kicsit körülményesebben lehet 
elvégezni: 


BD REM titi PAZ. 9ti633 

ég 

7. 

100 A$-"COMMODORE" 

110 A$-LEFT$(A$,4)4"I123"4MID$(A$,B,3) 
129 PRINT A$ 


Különösen hasznos a módosított MID$ függvény a file-kezelésben, fix hosszúságú mezőkből 
álló rekordok összeállításához. Előzetesen fel kell töltenünk egy füzért üres karakterrel, 
amelybe rendre a megfelelő pozícióktól kezdve az új utasítással beleírhatjuk a kívánt mezőket. 


A MID$ utasítást módosító gépi kódú program: 
BD REM xxXt P44. XXXI 
1 § 


99 : OSSC -OPT Pi 


93 4 , :A MID$ MINT PFSZEUDOVALTOZO 

erc : : 

edit: 5A MID$(FUZER,POZICIO,HOSSZ) -FUZER-KIFEJEZES 
93 s ; 

209 : 033C MIDCODE 7 $CA 
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LK CEST TNNK CN TSNK CNN TEN TENE TI 


A? 
Ag 
8D 
gc 
60 
20 
c? 
Fo 
20 
4C 
209 
20 


en 
2 


85 
84 
85 
84 
20 
Ag 
B1 
48 
Fo 
20 
AD 
B1 
85 
ca 
B1 
es 
20 
29 
BA 
Fo 
CA 
B6 
20 
C9 
Da 
A? 
Do 


94 
2 


96 


B6 


RE 
B7 


00 


RE 


EXECUT 
CHRGET 
CHRGOT 
EXECOLD 
VARNAM 
VARADR 
DESCRPT 
TESTSTR 
GETVAR 
SETSTR 
CHKAUF 
CHKZU 
CHKCOM 
TEST 
GETBYT 
FRMEVL 
ILLEUAN 
FRESTR 


LAENGE 
POSITION 
VARSTR 
GLEICH 
ZET1BZ 


INIT 


MIDTEST 


MIDSTR 


NEXT 


HANK WAN KN BR BROEK ÚT 


kk 
(1) 


$z08 ;: AZ UTASITAS VEGREHAJTASANAK VEKTORA 


£73 

CHRGET1-6 

$AFEF 

$45 

$49 

$£64 

$ADBF 

BOSB 

$AA5Z 

$AEFA :NYITO ZAROJEL 
$REF7  5ZARO ZAROJEL 
$AEFD  ;VESSZO 
$AEFF 

$B79E 

$ADJE 

$B248 

$BONZ 

3 

3641 

3841 

442 

$B2 

$50 


828 
$CMIDTEST 
HO-MIDTEST 
EXECUT 
EXECUTt1 


CHRGET 
$HMIDCODE ;A MID$ KODJA 
MIDSTR 
CHRGOT 


EXECOLD ;AZ EREDETI UTASITAS VEGREHAJTASA 


CHRGET jA KÖVETKEZŐ JEL 
CHKAUF 5NYITO ZAROJEL 
GETVAR ;A VALTOZO BETOLTESE 
DESCRPT 
DESCRPTt1 
VARADR 
VARADRt- 1 
FRESTR 
40 
(DESERPT) ,Y 
; HOSSZ 
b 4 18 
SETSTR ;A FUZER BETOLTESE A TARBA 
ti 
(VARADR) ,Y 
VARSTR ;A VALTOZO CIMENEK TAROLASAR 


(VARADR) ,Y 

VARSTR--1 

CHKCOM 

GETBYT ;A POZICIO BETOLTESE 


ILL 


POSITION 

CHRGOT 

hátjó dd 3A KIFEJEZES VEGE 
NEXT 

HSFF ; MAXIMALIS HOSSZ 
STORE 


"CHKCOM 
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810 : 0397 20 9E B7 JSR GETBYT ;5A HOSSZ BETOLTESE 
820 : 039A 8A TXA 

830 : 039B DO 03 BNE 445 

840 : OZ39D 4C 48 B2 ILL JMP — ILLOUAN 

850 : osAg 83 03 STORE STA LAENGE 

869 : OZ3A2 6B SEC 

370 : 03A3 3 SEC 

egg : 03A4 E5 04 SBC POSITION 

89090 : 03A6 CS 03 CMP  LAENGE 

990 : OSAB BO 02 BCS OK 

719 : 03AA 85 053 STA LAENGE 

7929 : OZAC 29 F7 RE OK JSR CHKZU ;ZARO ZAROJEL 
930 : OSAF A? B2 LDA $GLEICH 

9409 : O3B1 209 FF ARE JSR TEST 

950 : OSB4A 209 9E AD JSR FRMEVL ;:A KIFEJEZES BETOLTESE 
760 : 03B7 209 A3 B6 JSR FRESTR 

970 : OSZBA AN 02 LDY §2 

7989 : O3BC Bi 64 LDA  (DESCRPT),Y 

799 : O03BE 85 51 STA 2ZEIG2-41 

1000 : 03C9 88 DEY 

1910 : 03CI B1 64 LDA  (DESCRFT) ,V 

10209 : 0ZCS 85 50 STA ZEIG2 

1030 : 03CS5 88 DEY 

1949 : 0SCG6 BI 64 LDA  (DESCRFT),Y 

1059 : 03C8 FO D3 BEO ILL :HA 0 AKKOR HIBA 
10609 : O3CA C5 03 CMP LAENGE 

1970 : OZ3CC BO 02 BCS 0OKI 

1080 : 03CE 85 05 STA LRAENGE 

1099 : O05DO AS 05 OK ! LDA VARSTR 

1100 : 03D2 18 CLC 

1110 : O3D3 65 04 ADC POSITION 

1120 : 03DS5 85 905 STA VARSTR 

11309 : 03D7 90 02 BCC 444 

1140 : U3D9 E6 06 INC VARSTR6tI1 

1159 : OSDB A4 03 LDY LAENBE 

1169 : OSDD 88 LO0OP DEY 

1179 : OSDE Bi 50 LDA K(ZEIG2) ,Y 5EGY KARAKTER ATVITELE 
1189 : O3EG 91065 STA (VAGSTR) ,Y3;A FUZERBE 
1199 : 03EZ2 CO 00 CPY §O 

1209 : 93E4 DO F7 BNE LOOP 

1210 : O0SEó A4C AE A7 JIJMP $A7TRE ;VISSZA AZ INTERPRETER CIKLUSHOZ 


A program betöltés után a SYS 828 utasítással indítható 
A BASIC betöltőprogram: 


9 REM títtx PAD. 46363636 


100 FOR I-828 TO 1908 

118 READ X:POKE I,X:S56-tX:NEXT 

120 DATA 169, 71,160, 35,141, 8, 3, 140, 9, 3, 96, 32 
130 DATA 115, 0,291,2902,240, 6, 32,121, 0, 76,231,167 
140 DATA 32,115, 0, 32,259,174, 32,139,176,133,109,132 
159 DATA 191,133, 73,132, 74, 32,163,182,160, 09,177,180 
160 DATA 72,240, 46, 32, 82,170,160, 19177, 73,133, 5 
170 DATA 209,177, 73,133, 6, 32,253,174, 32,158,183,138 
189 DATA 249, 23,202,134, 4, 32,121, 90,201, 41,208, 4 
190 DATA 169,255,208, 12, 32,253,174, 32,158,183,138,208 
299 DATA 3. 76, 72,178,133, 3,104, 56,229, 4,197, 3 
210 DATA 176, 2,133, 3, 32,247,174,169,178, 32,255,174 
229 DATA 32,158,173, 32,163,182,160, 2,177,100,133, 81 
230 DATA 136,177,1909,133, 89,136,177,100,240,211,197, 3 
240 DATA 176, 29133, 3,165, 5, 24,101, 4,133, 5,144 
259 DATA 2,230, 6,164, 3,136,177, BO,145, 5,192, 0 
260 DATA 298,247, 76,174,167 

270 IF S£319273 THEN PRINT "HIBA A DATA SORBAN. .!!":END 

289 SYS SZ8:PRINT "OK..!!" 


07 


Nézzünk egy példát az új utasítás használatára: 


9 REM xxx P4Gh. KREX 

d..§ 

vgő 

100 DIM A$(10) 

119 FOR I-1 TO 10 

120 A$(I)-"PROBASZOVEG" 
139 NEXT 

140 FOR I-1 TO 10 

150 MID$(A$(I) ,I,1)—-MID$("12345678909",I,1) 
160 NEXT 

170 FOR I-1 TO 10 

189 PRINT A$(I) 

199 NEXT 


Eredményként tíz füzért kapunk, az elsőben az 1. -helyre egy 1-es, a másodikban a 2. helyre 
egy 2-es került. 


LROBASZOVEG 
PZOBASZOVEG 
PRSBASZOVEG 
PRO4ASZOVEG 
PROBSSZOVEG 
PROBASZOVEG 
PROBAS7OVEG 
PROBASZB8VEG 
PROBASZOTEB 
PROBASZOVOG 
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4.7 Az INSTR és a STRING$ függvények 


A legtöbb BASIC interpreterrel ellátott személyi számítógépen van két olyan füzérfüggvény, 
amely a C-64-esen hiányzik. Nevezetesen a STRING$ függvény — amellyel egy tetszőlegesen 
hosszú füzért készíthetünk egy megadott ASCII kódú karakterből —, és az INSTR függvény — 
amely megvizsgálja, hogy egy füzérben szerepel-e egy másik vagy sem. 

A Commodore 64-es füzérkezelő műveleteinek és BASIC értelmezőjének ismeretében mindkét 
függvényt előállíthatjuk. 

Utasításszóként használjuk a POS és az STR$ szimbólumokat, de megkülönböztetésül az 
eredeti hasonnevű utasításoktól eléjük felkiáltójelet írunk. 

Az INSTR függvény szintaktikája a következő: 


I — ! POS (A$, B$, P) 
ahol az A$ az a füzér, amiben keresünk, a B$ amit keresünk, P pedig az a pozíció, ahonnan 
kezdjük a keresést. Az I változó értéke 0 ha a B$ füzér nem fordult elő az A$-ban, egyébként 
pedig az első előfordulás pozíciója. A P változó megadása nem kötelező; ha nincs megadva, 
a keresés a füzér elején kezdődik. Változó helyett aritmetikai kifejezést is használhatunk. 


Nézzünk néhány alkalmazást: 


PRINT !IPOS ("ABCDEFGHUK", "D") 


4 
IF IPOS (A$,"J") THEN PRINT "NEM TALALOM!" 
A$ s "HAHAHA" 


PRINT IPOS (A$,"H") 

1 

X — IPOS (A$,A",5) : PRINT X 
6 

A STRING$ függvény használata: 


A$ — ISTR$(L,B) 
vagy 
A$ — ISTR$(L,B$) 


ahol A$ az előállítandó füzér, L a hossza, és B az A$-t alkotó karakter ASCII kódja. Ha 
B helyett füzért használunk, akkor a füzér első karakterének ASCII kódját veszi a függvény. 


Nézzünk néhány példát! 
PRINT ISTR $ (20,65) 
AAA AAA AAA AAA AA 
A$ — ISTR$)10, "x" ) : PRINT A$ 


XXXXXXXXXX 


A gépi kódú programot a szabad RAM területen helyeztük el, 51200-as kezdőcímtől. 
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halj at 2867. Ök, — ig? án, "ell lé as ÚR TEA 


CT SK CSK! NC T NT ENC CST T HNK TS TSSC CST "HNK CST SSE CSE T SET SSE TS TS TERT SSTTI 


ÉLT St? SL T SK TS CNN TENYT 


ERVE PAZ, 
cC890 
c8a9 
cgg9 
CBI9 
c890 
cgva 
c8og 
ce99 
Ceg9 
CBo9 
cgog 
C8B90 
ceg0 
C899 
cow, 
Ccg99 
ceg9 
C829 
CBo8 
C8g9 
Cg99 
C8a0 
cgg9 
C809 
cggg 
C8og 
C899 
CB99 
C899 A? 
CB02 A9 
C8g4 BD 
C897  8C 
CSOA 69 
CBOB  A9 
CS9D 85 
C8oF 29 
C812 C9 
CBI4 FO 
CB16 20 
CS19  4C 
CBI1C 20 
CBIF CC? 
CB21 FO 
Cs823 C9 
C825 DO 
CB27  4C 
CBZA  4C 
CSZD 20 
Ccgzg 20 
Cs33 20 
Cs3z6 20 
C839 AS 
CB3ZB 48 
CS3C A5 
CSZE 48 
CS3F 29 
CB4A2 28 
Cs845 29 
CB48 FA 
CBA 85 
CBAC 86 


SRARK 


OB 
c8 
0A 
9B 


29 
oD 
75 
21 
06 
Fáj 
ep 
Fő 
B? 
ga 
c4 
03 
Bi 
08 
75 
FA 
YE 
eF 
64 


45 


FD 
gE 
AS 
64 
04 
FB 


03 
93 


00 


09 
RE 
00 


cg 
AF 
90 
RE 
AD 
AD 


AE 
AD 
B6 


AZ INSTRING 


CHKAUF 
CHKZU 
CHKCOM 
FRMEVL 
CHKSTR 
FRESTR 
VFAC 
CHRGET 
CHRBOT 
GETBYT 
INTEGER 
DESCRPT 
STRADR 
ADR2 
ADRI 
LEN1 
LEN2 
ANZANL 
START 
TYFFLAG 
STRCODE 
ILLGUAN 
SYNTAX 
POSCODE 
VECTOR 
TEMF 


TESTIN 


TEST2 


INSTR 


s: PT Pi 
FUGGYENY 

37 $1C900 

z $AEFA 

ii $AEF7 

z IREFD 

z $TADTE 

z $RDBF 

z $FBORI 

z $B3A2 

z 473 

z CHRGETt£6 

z $£E79B 

- T1B1AR 

z 41634 

z $62 

z $FE 

z $FBt2 

z E s 

£ 4 

z § 

z 6 

z 135 

z 1c 

z £R248 

z 18FOB 

z $B9 

z $39A 

z LEN1 

LDA HCTESTIN 

LDY $HOTESTIN 

STA VECTOR 

STY VECTORHI 

RTS 

LDA $0 

STA TYFFLAG 

JSR EHRGET 

CHP. 

BEG TESTZ 

JSR CHRGOT 

JMP  HAEBD 

JSR CHRGET 

CMF  HPOSCODE 

BEG INSTR 

CMF HSTRCODE 

BNE 45 

JMP STRING 

JMP SYNTAX 

JSR CHRGET 

JSR CHKAUF 

JSR FRMEVL 

JSR CHKSTR 

LDA DESCRPT 

PHA 

LDA DESCRFPT-1 

PHA 

IJSR  CHKCOM 

JSR FRMEVL 

JSR FRESTR 

BEG ILL 

STA LENZ 

STX ADRZ 
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:; ZAROJEL KI 
jA KIFEJEZES BETOLTESE 
3A FUZER VIZSGALATA 


5A FUZER CIME A VEREMBOŐL 


; VESSZO 
:A MASODIK FUZER 


: HOSSZ-O 


LOK CN TK CNN CNN LEK CK CN TEK TEN TB TNS TT PK TEN TNS TT TEN TEN PEN PEN HEY TEN TEN TET TEN "NT TEN " BR TNS T HST T SET SL HST HET SLT HST HTO KT) 


(a EK CEL LK CNN VON TNS VT ET "BRT CL CN PEN "NN TEN TÉN " NN TENI "ERT TEN TENÉT BRT" BEL, BTK TI 


FC 


B6 


00 


B7 


L1 


B2 ILL 

9 STRING 
AE 

B7 


RE 
AD 
B1 


ca 
B7 


ADR2-t 1 


FRESTR47 
EL 

LEN1 
ADR1 
ADR1-t1 


AZ ELSO FUZER CIME 


HO ; ALAPERTELMEZES A 3. FARAMETERNEL 


CHRGOT 
fak 
Ci 
GETBYT 


5A KEZDO POZICIO 


FÜL 


START 


(ADR2) ,Y 
(ADR1) ,Y 
15 


CHKAUF 
GETBYT43 


CHKCOM 
FRMEVL 
TYPFLAG 
STR 
INTEGER 
DESCRPT 
EL 
DESCRFT 
STR$ 
$B782 
ILL 
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A FUZERBELI KEZDOFOZICIO 


; AZ EREDMENY 9 
; ELTOLAS 


JAZZ 1 CIM 4 KEZDOPOZICIO 


3A JELEK OSSZEHASONLITASA 
5A KÖVETKEZŐ POZICIO 


MINDEN JELET MEGVIZSGALUNK 
; EREDMENY 


; MEG NINCS KESZEN 
3 NEM TALALOM, NULLA 


jA 2. FUZER CIMENEK A NÖOVELESE 


8 


;ZAROJEL KI 


ja HOSSZ TAROLASA 


; NUMERIKUS (TIPUSKAPCSOLO) 
;A HOSSZ NULLA 


1259 : CBD7 Ag 909 ÜDY. JELL 
1260 : CBD9 Bi2 LDA (£E22),Y — :AZ ELSO KARAKTER 
1279 : CSDE 985 93 STRZ STA TEMF 
1280 : CBDD 68 PLA ; HOSSZ 
1299 : CBSDE 29 7D B4 J8R  $B47D 
1300 : CSEL A8 TAY 
1310 : CBE2 FO 07 BEG STRZ 
1320 : CBE4 a5 03 LDA TEMP 
1330 : CBEG 59 LOOP DEY 
1340 : CBE7 91 62 STA (STRADR),Y ;A FUZER ELOALLITASA 
1350 : CBE9 DY FB BENE  LOOP 
1360 : CBER 20 CA B4 STRZ JSR $B4CA ;A FUZER ATVITELE A VEREMBE 
1370 : CSEE 4C F7 RE IMF CHKZU 
A gépi kódú program BASIC betöltője: 
B REM átíttá FUH. dátátát 
ty 
2: 
190 FOR I-51200 TO 51448 
119 READ X:POKE I,X:855-tX:NEXT 
120 DATA 1692, 11,168,290,141, 10, 3,140, li, 3, 96,169 
139 DATA  04,1353, 13, 32,115, 9,201, 33,240, 6, 32,121 
149 DATA — 0, 76,141,174, 32,115, 0,291,185,249, 19,2091 
159 DATA 196,208, 3, 76,177,209, 76, 8B,175, 32,115, € 
160 DATA 32,250,174, 32,158,173, 32,143,173,165,109, 72 
179 DATA 165,101, 72, 32,253,174, 32,158,173, 32,163,182 
1890 DATA 2490,100,133, 4,134,251,152,252,104,168,194, 32 
199 DATA 170,182,240, B6,133, 3,134,253,132,254,162, 0 
2900 DATA 32,121, 0,291, 44,208, 7, 32,155,183,139,249 
210 DATA 65,292,134, 6, 32,247,174,165, 3, 56,229, 4 
220 DATA 144, 40,105, 0.133, 5,165, 6, 24,191,253,133 
2309 DATA 25Z,144, 2,239,254,169, 0,177,251,209,253,208 
240 DATA 11,200,196, 4,144,245,164,  6,200, 76,162,179 
250 DATA 230, 6.198, 5.208, 4,160,  0,249,243,2309,253 
2690 DATA 208,223,230,254,208,219, 76, 72,178, 32,115, 0 
279 DATA . 250,174, 32,158,183,138, 72, 32,253,174, 32 
280 DATA 158,173, 36, 13,.48, 12, 32,170,177,165,190,208 c £ 
299 DATA 225,165,191, 76,219,200, 32,130,183,240,215,160 Ez ÜgÉ s 
300 DATA — 0,177, 34,133, 3,104, 32,125,180,168,240, 7 6 ; 
310 DATA 165, 3,136,145, 978,208,251, 32,202,180, 76,247 Ó 
329 DATA 174 
330 IF S£230119 THEN PRINT "HIBA A DATA SORBAN. .!!" 
340 SYS 51200:PRINT "OK..!!" 
€ 
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4.8 A Commodore 64 magyarul beszél" 


Zavarja Önt, hogy a Commodore 64 csak angol nyelven beszél! 


Tanítsuk meg magyar 


Az alábbi program a magyar beszédre kényszeríti a gépet, vagy legalábbis a hibaüzenetek 


magyar nyelvű kiírásá 


A hibaüzeneteket (1-től 29-ig sorszámozva) elhelyeztük a programban magyarul (az 1-es 
hibaüzenet pl. a ,too many files"). A táblázat (amely megtalálható , A C 64 belső felépítése 
c. könyvben) eredeti angol szövegeit egyszerűen helyettesítettük a megfelelő magyar szöveg- 


gel. 


Ha van assembler programunk, és saját hibaüzeneteket szeretnénk készíteni, ügyeljünk arra, 
hogy minden szöveget olyan karakterrel kell befejezni, amelynek megfelelő byte 7. bitje 
magas. Ezt nagyon egyszerűen elérhetjük, ha az utolsó betűt a SHIFT billentyűvel együtt 


ütjük le. 
0 :REM tíitt P49. 
: gek 
2: 
109 : 
119 : 
129 z: 
139 z 
149 : COO 
159 : Co0oG 
169 : COB 
170 s: 
189 : Co0gg 
199 : COOG A? OB 
2090 : COO2 Ag CO 
216 : COO4 BD 009 
220 : C007 8C 01 
250 : CORGA 
2553 s: 
240 : COOB 8A 
250 : COOC 18 05 
260 : COOE A4C 45 
270 : Cg11 XA 
280 : Cg12 AA 
2909 : CGI13 BD 48 
5300 : CG16 §5 22 
5310 : CIB BD 49 
5329 : COIB 85 25 
339 : CgI1D 29 CC 
5340 : CO2G A? 00 
359 : Cg22 §5 15 
I60 : CO24 29 D7 
370 : Cg27 209 45 
389 : CO2ZA AD 09 
399 : CO2ZC Bi 22 
409 : CO2ZE 48 
410 : COZF 29 7F 
420 : CO31 209 47 
430 : CO34 CB 
4409 : CO3S 68 
450 : CO36 19 F4 
469 : CAZB 29 7A 
470 : COSB A4 3A 
489 : CO3D CB 


ul! 


ra. 


963434 at 


g 


g 


7 


AB 


AG 


LO0P 


e OPT Pi 


NYELVU HIBAUZENETEK A C64-EN 


$300 — ;5A HIBAUZENETEK VEKTORA 
$22 ;MUTATO A HIBAUZENETRE 
$A445 
$CWO0 
$CNEWERR 
HONEWERR 
ERRVEC 
ERRVEC-1 
s; HIBASZAM 
ERRI1 
READY 
A $2-SZER 
; INDEXKENT 
ERRTAB-2,X 
ERRADR 
ERRTAB-1 , X 
ERRADR-4- 1 
$FFCC — ;5CLRCH 
40 
$135 4 1/0-KAPCSOLO 
$AAD7 — ;5UJ SOR 
$AB4AS — ;A "?" KIIRASA 
40 
(ERRADR) ,Y 
4$7F 
$AB47 
LOOP 
$AGTA — FOLYTATAS 
$3A 


" Az eredeti szövegben , németül" beszél (a ford. megjegyzése). 


63 


490 
300 
510 
520 
330 
540 
935 

560 
5370 
3989 
9390 
600 
610 
420 
430 
540 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
89860 
870 
880 
890 
990 
910 


: CSE FO 03 BEG READY 


: C040 29 €2 BD JSR £BDC2 — ;A SORSZAMBAN 
: CO43 AJ BB READY LDA HC KESZ 

: C045 AG C2 LDY  $5 KESZ 

: C047 29 78B a4 JSR $A478 

: CO4A 86 EG 96 ERRTAB — .WORD F1,F2,F3,FA,FO,F7,FB 

: CO5A 13 CI 2B .WORD F9,FIO,FIL,F12,F13,F1I4,F15 
: COGB 89 Ci 9F . WORD F16,F17,FIB8,F19,F20,F21,F22 
: C076 15 C2 29 .WORD F23,F24,F25,F26,F27,F28,F29,F30 
gi ; 

: COBO 54 55 4C Fi .ASC "TUL SOK FILE ! " 

: C096 46 49 4C F2 .ASC "FILE NYITVA" 

: COA1 41 20 43 F3 .ASC "A CS.NINCS NYITVA" 

: COB2 41 20 46 F4 .ASC "A FILE NEM LETEZIK " 

: COCó 41 20 4B F5 .ASC "A KESZÜLEK NINCS JELEN" 

: CODC 4E 45 4D F6 .ASC "NEM BEMENETI FILE " 

: COEE 4E 45 4D F7 .ASC "NEM KIMENETI FILE " 

: CIO9 41 20 46 FB .ASC "A FILENEV HIANYZIK " 

: CLIIZ 49 4C 4C F9 .ASC "ILLEGALIS KESZULEKSZAM " 

: CIZ2ZB 4E 45 58 FIg .ASC "NEXT FOR NELKUL Ő" 

: CI3C 46 4F 52 FlI .ASC "FORMAI HIBA !" 

: C149 52 45 54 F12 .ASC "RETURN GOSUB NELKUL —" 

: CISE 4E 49 4E FIZ .ASC "NINCS TOBB DATA " 

: C1GE 49 4C 4C Fi14 .ASC "ILLEGALIS ERTEK ! " 

: CIB 54 55 4C F15 .ASC "TUL NAGY!" 

: C189 42 45 54 F16 .ASC "BETELT A TARTERULET ! " 

: CI9F 41 29 53 FI7 .ASC "A SOR HIANYZIK" 

: CIAD 49 4C 4C FI8 .ASC "ILLEGALIS INDEX " 

: CIBE 55 4A 52 FI9 .ASC "UJRADIMENZIONALT TOMB " 
: CIDB 4F 53 5A F20 .ASC "OSZTAS NULLAVAL ! " 

: CIEB 49 47 59 F21 .ASC "IGY NEM HASZNALHATO !" 

: C200 48 49 42 F22 .ASC "HIBAS VALTOZOTIPUS ! " 

: C215 54 55 4C F23 .ASC "TUL HOSSZU SZOVEG ! " 

: C229 48 49 42 F24 .ASC "HIBAS ADATTIPUS ERKEZETT ! " 
: C244 41 20 4B F25 .ASC "A KIFEJEZES TUL OSSZETETT ! " 
: C261 41 29 50 F26 .ASC "A PRG.NEM FOLYTATHATO ! " 
: C27B 4E 45 4D F27 .ASC "NEM DEFINIALT FUGGVENY ! " 
: C294 41 SA 4F F28 . ABC "AZONOSSAGELTERES ! " 

: C2AA 54 4F 4C F29 . ASC "TOLTESHIBA" 

: C2B4A 42 52 45 F30 .ASC "BREAK" 

: C2ZBB OD KESZ .BYT 13 ; CRLF 

: C2ZBC 4B 45 53 S ÁB SKESBZ sz 19 

: C2C3 OD 00 .BYT 13,0 


A BASIC betöltőprogram: 


0 REM Hitt P5O. 464466 


1: 
2. § 
100 
110 
129 
130 
149 
159 
160 
170 
189 
199 
209 
219 
220 
250 
240 
250 
260 


FOR 1-49152 TO 49860 

READ X:POKE I,X1958-rX:NEXT 

DATA 169, 11,169,192,141, 0, 3,140, 1, 3, 96,138 
DATA 16, 3, 76, 67,192, 19,170,189, 72,192,1533, 34 
DATA 189, 73,192,133, 35, 32,204,255,169, B,133, 19 
DATA 32,215,179, 32, 69,171,169, 9,177, 34, 72, 41 
DATA 127, 32, 71,171,200,104, 16,244, 32,122,166,164 
DATA 58,209,240, 3, 32,194,189,169,187,168,194, 32 
DATA 129,164,134,192,159,192,161,192,178,192,198,192 
DATA 229,192, 28,192, 0,193, 19,193, 43,193, 60,193 
DATA 73,193, 94,193,119,193,128,193,137,193,159,193 
DATA 173,193,199,193,216,193,235,193, 0,194, 21,194 
DATA 41,194, 68,194, 97,194,123,194,148,194,170,194 
DATA 189,194, 84, 85, 76, 32, 83, 79, 75, 32, 70, 73 
DATA 76, 469, 32, 33, 32,160, 70, 73, 76, 69, 32, 78 
DATA 89, 73, 84, 96,193, 65, 32, 67, 83, 46, 78, 73 
DATA 78, 47, 83, 32, 78, 89, 73, B4, 86,193, 45, 32 
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270 
280 
290 
300 
310 
320 
330 
340 
3590 
360 
370 
380 
3909 
400 
410 
420 
4zo 
440 
450 
460 
470 
480 
490 
300 
510 
520 
530 
540 
550 
560 
570 
589 
53909 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
790 
710 
720 
730 


KESZ 


DATA 70, 73, 76, 69, 32,.78, 69, 77, 32, 70, 69, 84 
DATA 69, 90, 73, 75, 32,160, 65, 32, 75, 69, B3, 90 
DATA. B5., 76,-649. 75. 32. ZA. Zás ZA. 67 BZ. 52, 74 
DATA 69, 76, 69,206, 78, 69, 77, 32, 66, 69, 77, 69 
DATA 78, 69, 84, 73, 32, 70, 73, 76, 69,160, 78, 69 
DATA. ZSZ ETATS Za Ö9s ZAL ORA BA 7Zs SZ 7Ő 
DATA 73, 76, 69.160, 65, 32, 70, 73, 76, 69, 7B, 69 
DATA 86, 32, 72, 73, 65, 78, 89, 90, 73, 75,160, 73 
DATA. 765.765. 624 715.65./7év 735. 93, 32, 75, 69, 83 
DATA 90, 85, 76, 69, 75, B5, 90, 65, 77, 52,160, 78 
DATA 69, BB, B4, 32, 704 79, 82, 32, 78, 69, 76, 75 
DATA 85. 76. SZAGOK 705 ZÖCÉZ ITT 65.73, 32, 72 
DATA 73, 664 654 SZ.LGÍ 82.60. B4, Ba B2, 78, 52 
DATA 71, 79, 83, 85, 66, 32, 78, 69, 76, 75, 85, 76 
DATA 32,160, 78, 73, 7B, 67, B3, 32, 84, 79, 66, 66 
DATA 32, 68, 65, 84, 65,160, 73, 74, 76, 69, 71, 65 
DATA 765 755.AS, SZG BZ, BALLON 7ős, SZ S T60 
DATA 84, 85, 74, 32, 78, 65, 71, 89.161, 66, 69, B4 
DATA 69, 76, B4, 32, 65, 32, 84, 65, 82, 84, 69, 82 
DATA 85, 76, 49, 84, 32, 33,160, 65, 32, 83, 79, 82 
DATA 32, 72, 73, 65, 78, B9, 790, 73.203, 73, 764 76 
DATA 69, 71, 65, 76, 73, B3, 32, 73, 78, 68, 69, 88 
DATA 32,160, 85, 74, B2, 65, 68, 73, 77, 69, 78, 90 
DATA. 755. 79.78. 654 76. .BAP- SZ. BA. 79, 774" ba. 32 
DATA 32, 32, 32,160, 79, B3, 90, 84, 65, B3, 32, 78 
DATA 85, 76, 76, 65, Bby 65, 76, 32, 33, 32,160, 73 
DATA 71, 89, 32, 78, 69, 77, 532, 72, 65, B3, 90, 78 
DATA 65, 76, 72, 65, B4, 79, 32,161, 72, 73, 66, 65 
DATA 83, 32, 86, 65, 76, B4, 79, 99, 79, B4, 73, 80 
DATA 85, B3, 32, S3,160, 84, 85, 76, 32, 72, 79, 83 
DATA 83, 90, 85, 32, 83, 990, 79, 86, 69, 71, 32, 53 
DATA 160, 72, 73, 6b, 65, 83, 32, 65, 68, 65, 84, 84 
DATA 73, BO, 95, B3, 32, 69, 82, 75, 69, 90, 69, 84 
DATA 84, 32, 353,160, 65, 32, 75, 73, 70, 69, 74, 69 
DATA 909, 69, 83, 32, 84, 85, 76, 32, 79, B3, 83, 90 
DATA 69, B4, 69, B4, 84, 32, SZ, 32,160, 65, 32, 80 
DATA 82, 71, 46, 7B, 69, 77, 32, 70, 79, 76, 89, 84 
DATA 65, 84, 72, 65, 84, 79, 32, 353, 52, 32,160, 78 
DATA 69, 77, 32, 68, 69, 70, 73, 78B, 73, 65, 744, 84 
DATA 32, 70, 85, 71, 71, 86, 69, 78, 89, 532, 33,160 
DATA 65, 90, 79, 78, 79, B3, B3, 65, 71, 69, 76, BA 
DATA 69, B2, 69, 83, 32, 33, 32, 32, 52.160, B4, 79 
DATA 76, 84, 69, B3, 72, 73, 66,193, 66, B2, 69, 65 
DATA 75, 32,160, 13, 75, 69, 83, 90, 32, 46, 32, 15 
DATA 0 

IF 5£559652 THEN PRINT "HIBA A DATA SORBAN..! !";END 


SYS 49152:PRINT 


"ak. tr 
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4.9 A nyugat-berlini Kudamm óra a CBM 64-esen 


A Kurfürstendammon kószáló tájékozatlan turisták többsége elképedve áll meg egy, a zöld 
sétány közepére helyezett állványelőtt, melyen sárga és piros lámpák villognak. A látvány első 
pillántásra fénykavalkádkérít hat, azután hittelen "Összeáll: a kSED egy furcsa órává, amely 
sajátos módon mutatja a pontos időt. 

A következő program egy szakasztott ilyen fura órát Varássol a Commodore 03- -es KEGY: 
jére. (Az óra vázlatos rajza a 69. oldalon látható.) 

Természetesen a különleges óra csak színes TV-n mutat jól. A programban lalkakíázót 
ötletek további lépést jelentenek a Commodore 64-es , képességeinek" felderítésében. Segéd- 
eszközként a beépített valós idejű órát és a sprite-okat használtuk fel, ill. természetesen a 
karaktergrafikát. 

A részletes dokumentációval lehetőséget kínálunk arra, -hogy az Olvasó a program egyes 
részeit a saját céljaira felhasználhassa. 


A program változói: 


A$ A pontos idő (input) 
AP A karaktergrafika tömbmutatója 
c A valós idejű óra báziscíme 
V A videovezérlő báziscíme 
S1 A 0. sprite pontmintájának címe 
S3 Az 1. sprite pontmintájának címe 
F1 7-0 a másodperc első fele 

-1 a másodperc második fele 
F2 7-1 az óra indítása 
FL -0 délelőtt 

—1 délután 


H Óraszámláló 

M Percszámláló 

S Másodpercszámláló 

T Tizedmásodperc-számláló 

H$ A H változó füzéralakja 

M$ Az M változó füzéralakja 

S$ Az S változó füzéralakja 

ME$(X) Az egyes percek szimbólumgrafikája 
MZ$(X) A wtízpercek szimbólumgrafikája 
SE$(X) Az egyes órák szimbólumgrafikája 
SZ$(X) A ,tízórák" szimbólumgrafikája 


A programlépések magyarázata: 


5—10 A változók kezdőértékének beállítása 


15 A keret színe fekete, a sprite-okat kikapcsoljuk — erre a program leállítása után és 
újraindítása előtt van szükség, egyébként a pontos idő beolvasása közben mozog- 
nának. 

30 A regiszter 7. bitjét magasra kell állítani, hogy az óra állása 0 legyen. 

35 A valós idejű óra ütemét 50 Hz-re állítjuk (a 7. bit értéke a regiszterben 1). 
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110-160 


161—164 
165—167 
168-169 
170-171 


179-196 
198-224 


225-229 
230-290 


310-350 
380-410 


Az óra ütemét a hálózati feszültség szabályozza, ez Európában általában 50 Hz, 
Amerikában 60 Hz (itt a megfelelő bitet alacsonyra kell állítani). 

A pontos idő beolvasása billentyűzetről. 

A beolvasott füzért numerikus részekre kell szétszedni... 

Mivel az óra 12 órás ciklusban működik az AM/PM jeizőt (az Öraródlsztet 7. bitje) 
az adatbevitelnek megfelelően be kell állítani. (Az AM/PM a latin , ante/post meridi- 
em" kifejezés rövidítése, jelentése délelőtt/délután. Az időszakot számos országban 
így jelölik.) 

A kapott értékek egyes és tízes részét szétválasztjuk és a megfelelő regiszterekbe 
töltjük. Az óraregiszter BCD (Binary Coded Decimal) kódban dolgozik, ebben a 
kódrendszerben minden félbyte által tartalmazott legnagyobb számérték a 9. 
Sprite-adatok a kör kitöltéséhez - 

A kör szegélyének sprite-adatai 

A sprite-adatok betöltése 

A sprite-mutatókat beállítjuk, a sprite-okat bekapcsoljuk, kétszeresre nagyítjuk, 
meghatározzuk a képernyőpozíciójukat és színüket. 

Előállítjuk a négyszögletes mező keretét. 

A percek és órák kijelzésére szolgáló tömbök értékének és színének beállítása. 
Nagyobb tárigényű, de gyorsabb megoldás, mint a folyamatos rajzolás. 
Félmásodperces időközönként a sprite és a kitöltött kör felváltva kapcsol ki és be. 
A valós idejű óra értékét leolvassuk és átatakítjuk decimális számmá. A leolvasott 
óra értékéhez (az AM/PM kapcsoló értékétől függően — FL) 12-t hozzáadunk, hogy 
24 órás kijelzést kapjunk. 

A képernyő jobb alsó sarkába kiírjuk a megfelelően átalakított értéket. 

A tömbben tárolt gerc, ill. óra rajzolatának előállítása. 

Mivel minden kombinációhoz egyetlen pontminta tartozik, az óráról teolvasott érték 
a tömb indexét adja. 

A kijelzésre csak percenként, ill. az óra átállása után van szükség (370-, 360-as 
sorok). 


Elnézést kérünk a programlista minőségéért, de a speciális karakterek miatt nem használhat- 
tunk jobb nyomtatót. 


5 PRINT "g":DIM MZSCI1) 
18 CsSGIZOLVSSZZ4BI S 1 27041 B3B9ZLFZ-I 
15 POKE V633,0IPOKE Végi ,OLPRINT "A 
38 POKE Ct7,PEEKCCP7) AND 187 
POKE Ct6.PEEKCCLG) OR 128 
PRINT "KEREM A PONTOS IDOT 1" 
INPUT "FORMATUM HHNMM"IASILHSVÁLCLEFTS(AG,R)) 
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MeVALCRIBHTSÁAS,2) ) 
IF H)23 THEN 40 
95 IF Hsií2 THEN 116 


100 IF 


35 
48 
bad 
68 H:VAL(LEFTS(ASB,2)) 
70 
88 
38 


H)i1 THEN H:Ht6B 


116 POKE Cs$3,16$INT(CH/18)1H-INT(H/18)$10 


128 IF 


M353 THEN 48 


136 POKE Ct2, 16$INTCM/18) tM-INT(M/18) 510 


148 IF 


8558 THEN 40 


1586 POKE Ct1,16$INTCS/10)t5-INT(S8/10)$18 
168 POKE C€C.0 
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161 DATA B,0,0,0,128,0,3,255,192,7,255 224 ,15,255,246 ,31 ,255 ,248 , 31 ,255 ,248 

182 DATA 31.255 ,248,31 ,255 ,248 ,63 ,955 ,252 , 63 ,255 , 252 , 83 ,255 , 252 , 31 ,255 ,248 

163 DATA 31.255 ,248,15,255,248,15,255 ,248,7 ,255 ,240 ,3,255 ,224 ,3 ,255 , 192 

164 DATA 0,255,0,0,0,0 

165 DATA 1,255,128,7,129,224.12,0,48,24,0,24,48,80,12,48,0,6,86,0,6 ,86 ,0,6 

168 DATA 96 ,2,8,198,9,3,192,8,3,192,8,3,98,0,6 96 ,0,6.48,0,8,48,0,6 

167 DATA 24,0,12,12,0,24,12,0,48,7,0,224,3,255, 128 

168 FOR I:S1 TO S1I462LRERAD AIPOKE I,AtTNEXT 

169 FOR I-S3 TO S3t62!READ A:POKE I,ÁLNEXT 

1709 POKE 2058.111POKE 2041,131POKE V432,21POKE V133,81POKE V121,31POKE Vt83,3 
171 POKE Vt35,71POKE Vt48,0:POKE V,160:POKE Vt8,160:POKE Vt1,591POKE Vt3,59:POKE 
Vv129 3 

179 PRINT "EKEGGON" 

180 PRINT 
181 PRINT 
188 PRINT 
183 PRINT 
184 PRINT 
185 PRINT 
186 PRINT 
187 PRINT 
188 PRINT 
189 PRINT 
198 PRINT 
191 PRINT 
198 PRINT 
193 PRINT 
194 PRINT 
195 PRINT 
1986 PRINT 
198 SZ$(0) 5 " BNRDA 
199 SZ$( 1) z " BRNO 
200 SZ$C2) - " MRNRUDS 
201 SZ$K3) a 
202 SZ$(4) - " HENRI 
203 SESKO)z" HIRRREA 
204 SE$K 1) -"EREREAT 
285 SE$(2)-"PRBBBÁKA 
206 SES(3) z " HANME 
207 SESC(4) - "ERDEK 
208 MZ$(O) z " ezgnüe 
209 MZ$( 1) : "PET 
210 MZ$C2) — " HMBIDIS 
211 MZ$(3) a " BINRINEET 
212 MZ$C4) - " BREE 
213 MZ$(5) 5 " BIBE 
214 MZ$(E) - " HIRBIBIKNA 
215 MZ$(7)z"BIRIRRAOKA 
216 MZ$E(B) - " HIBIRIBETKA 
217 MZ$(9) - " BIRRONDKA 
218 MZ$S(10) :"ERBBSOBA MI 
219 MZ$(I11) s" ERGUHRIA B 
220 MESGCO) z " INNIA 

221 MESC 1) z " MEKA 
222 MESC(R) z " BIRBIREAI 
223 MEEK3) - "BEKA 
224 ME$C(4) - " HRIRBBAT 
225 ON F! GOTO 228 

226 IF PEEK(C))4 THEN POKE V139,7:GOTO 225 

227 POKE Vt39,11tF1z1r:GOSUB 230I1GOTO 310 

228 IF PEEK(C)X5 THEN 228 

229 F1:OI1GOTO 225 

230 H-PEEK(Ct13)IMSPEEK(C42):SZPEEK(Ct1)iTSPEEK(C) 
240 FLz1 

250 1F H)32 THEN H:H-I28BtIFL:0 

260 HzINT(H/18)104H-INTCH/16)218tON FL GOTO 280 
265 IF H:1g THEN eg85 


z 
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270 H-Ht1e 

280 IF H:12 THEN H:-0O 

285 MzINT(M/186)$£184M-INT(M/186) 418 

290 SzINT(S8/16)410415-INT(8/16) 116 

30909 RETURN 

310 H$ZSTR$(H)s:IF LEN(H$):2 THEN H$z" 0"t1RIGHT$CH$,1) 

320 MEZSTRE(M):IF LEN(M$):s2 THEN M$z" O"$RIGHT$(M$,1) 

330 S$-STR$(S):IF LEN(S$)-2 THEN $S$-" D"IRIGHT$S$,1) 

340 FRINT " BÖNMRÉNSNLMÉNÉMŰKÜNSG ÉNEM EZENŰ NEAR TETNTDNKTNÉET) 3. EVENTE TE SE TED JEE TARKA ENE MEZÉT 
350 PRINT RIGHT$(H$,2)": "RIGHT$S(M$,2)":"RIGHT$(S$,2); 

380 ON F2 GOTO 380 

370 IF S()O THEN e25 

380 APSINT(H/5):PRINT " ttdtéttbátitá" SZ $(APÍ:PRINT SZ$(AP):PRINT SZ$(AP) 
390 AP:5H-INT(H/5)$5:PRINT "§M"BSE$(AP):PRINT BSE$(AP)IPRINT SE$(AP) 
400 AP-INT(M/5) PRINT "W"MZ$(AP)JIPRINT MZ$(APITPRINT MZ$(AP) 

410 AP:-M-INT(M/5)$5:PRINT "W"MESC(AP)IPRINT MES(AP):1PRINT MESKAP) 
428 F2:B:GOTO 225 
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1. FEJEZET 
ELŐSZÓ 


A Commodore 64 naponta több ezernyi barátot szerez magának az egész világon. Ez a kis 
számítógépes rendszer nemcsak korlátlan lehetőséget biztosít a hobby-programozók számá- 
ra, hanem minden további nélkül alkalmazható kisebb kereskedelmi, adminisztrációs és 
tudományos műszaki feladatok megoldásában is. Éppen ebben mutatkozik meg a , Tippek 
és Trükkök" c. könyv hasznossága. A Klaus Gerits, Lothar Englisch és Michael Angerhausen 
szerzői együttesünk ismét mélyrehatolt a lehetséges trükkök tanulmányozásában, miközben 
számtalan tippet adnak a C 64-es mind jobb kihasználásához. Az említett szerzők célkitűzése 
az volt, hogy példák és mintaprogramok alapján ismertessék a Commodore 64 alkalmazási 
lehetőségeit. A könyv nagy segítséget nyújt abban, hogy a Commodore 64 adottságait 
messzemenően kihasználhassuk. : 

Mindhárom szerző úgy ismeri a Commodore 64-est, mint a tenyerét. Klaus Gerits nevéhez 
fűződik a 64 IEC-BUS és a MAXI 64 kifejlesztése, Lothar Englisch pedig a PROFI-MON 64 és 
a PROFI-ASS 64 közismert programok alkotója. Mindketten behatóan ismerik a C 64-es 
műszaki és rendszertulajdonságait. Eredményeik közé tartozik a USER-port tervezetének 
kidolgozása és a CP/M-modul beható leírása, a minden részletre kiterjedően dokumentált 
BIOS-listával együtt. Michael Angerhausen - az adatbank-szakértőnk — a file-kezelés kap- 
csán foglalkozott behatóan a Commodore 64-essel. Többek között azt is bemutatja, hogy 
milyen eljárással lehet a BASIC 2.0. változat alatt a relatív file-okat felépíteni. 

Néhány hónap alatt elfogyott a , Tippek és Trükkök" c. könyv első kiadása. Az új kiadást 
megelőzően a szerzők természetesen megragadták az alkalmat a közkedveltté és keresetté 
vált könyv átdolgozására és egyes részeinek kibővítésére. Olvasóink ezt a második, átdolgo- 
zott kiadást tarthatják a kezükben. 

A ,Tippek és Trükkök"-ben foglalt összes gépi programhoz és rutinhoz egy-egy BASIC 
betöltő programot (BASIC-Loadert) is mellékeltünk. Ezeket az egyszerű BASIC programokat 
azok is könnyen betölthetik, akik gépi kódban nem tudnak programozni és Így mindenki gond 
nélkül használhatja a gépi nyelven írt programokat. 

A mindenkori BASIC betöltő ellenőrzi a gépi kódú programot, és kiszűri az adatbevitelből 
eredő hibákat. 

Jó szórakozást kívánunk a , Tippek és Trükkök" c. könyvben foglalt feladatokhoz! 


Düsseldorf, 1983. augusztus 
A Szerzők 


5. FEJEZET 
A COMMODORE NEM CSAK A BASIC-ET ISMERI 


5.1 Programozás FORTH nyelven 


Mit jelent a FORTH? Ezt a kérdést általában azok teszik fel, akik eddig csak BASIC vagy 
assembler nyelven programoztak. Önök közül is biztosan sokan megkérdezik; , Minek tanul- 
jak meg egy új programnyelvet, amikor a Commodore-om kiválóan érti a BASIC-et?" A kérdés 
jogosnak látszik mindaddig, míg meg nem ismertük az új nyelv szolgáltatta lehetőségeket. 
Akkor különösen nem szabad elzárkózni az új nyelvek megtanulása elől, ha a számítógépünk 
többféle nyelven programozható. 

Aki huzamosabb ideje készít BASIC nyelvű programokat, észreveszi, hogy néhány feladat 
egyáltalán nem, vagy csak igen nehézkesen oldható meg ezen a nyelven. Nagyobb gépeken 
általában többféle nyelven programozhatunk. A FORTRAN-t főleg matematikai eljárások, a 
COBOL-t kereskedelmi célfeladatok, az assemblert főként hardverfüggő, a BASIC-et pedig 
általános célú feladatok programozási nyelveként használjuk. Van néhány olyan program- 
nyelv, mint a PASCAL vagy pl. az ELAN, amelyeket strukturált programok készítésére fejlesz- 
tettek ki. Minden nyelvnek megvannak a saját erős és gyenge pontjai. 

A FORTH a programnyelvek legfiatalabb generációjához tartozik, nevezetesen a negyedik 
(angolul: fourth) generációhoz. Fejlesztői megkísérelték a régi nyelvek előnyeit megtartva, és 
hátrányaikat lenyesve egy tökéletesebb nyelv kidolgozását. 


A FORTH a következőkben felsorolt tulajdonságai alapján alkalmas arra, hogy a személyi 
számítógépek speciális nyelvévé váljék: 


1.A FORTH program futtatása kis tárbeli címtartományt igényel. Ezen a nyelven viszonylag 
nagy, hatékony programokat készíthetünk viszonylag kis tárkapacitású gépeken. 


2. ideálisan alkalmazkodik a gép hardverfelépítéséhez, ami azt jelenti, hogy a programozónak 
nem kell ismernie a gép hardverkészleteit ahhoz, hogy hatékony programot készíthessen. 
(Pl. rendkívül kényelmes input/output utasításokkal rendelkezik. Ez a tulajdonsága indo- 
kolja gyakori alkalmazását a robot- és vezérléstechnikában.) 


3. A fentieken túl a FORTH rendkívüli előnye, hogy futtatása nem igényel lemezegységet. 
(Persze ha van, az nem hátrány!) 


A FORTH öt fő részből áll: 


1. A SZÓTÁR: A FORTH programnyelv néhány, a gépi nyelvhez közelálló FORTH utasításból 
áll, amelyekből a programozó további utasításokat definiálhat. Mindenki a saját igényeihez 
igazított programozási nyelvvel dolgozhat, ezzel leegyszerűsítve bizonyos feladattípusok 
megoldását. A saját célra kialakított utasítások szótárát, a végrehajtási útmutatóval együtt 
hozzákapcsolhatjuk a FORTH állandó utasításkészletéhez. 


2. A VEREM: A verem a FORTH legfontosabb építőköve. A verem (stack) fogalmát mindenki 
ismeri, aki valaha egy kicsit is programozott gépi nyelven, vagy dolgozott HP programozha- 
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tó zsebszámológéppel. A verem az ún. ,LIFO" elven alapszik (ami utoljára bekerült, az 
kerül ki legelőször — angolul: last in-first out). 
Minden művelet, aritmetikai, logikai, összehasonlító művelet az ún. veremelvre épül. 


. Az INTERPRETER: A FORTH is a Commodore 64-esen jól ismert interpreterrel dolgozik. 
Az editorral (szerkesztő programmal) megírt FORTH programot a megfelelő utasítással 
közvetlenül elindíthatjuk. A programhibák kiszűrése futás közben történik. Indítás előtt nem 
kell a programot lefordítani, ami rendkívül időigényes lenne, hanem lehet azonnal futtatni. 
Ennek persze az a következménye, hogy a programíutást a közbeni értelmezés lassítja. 
A FORTH esetében ez a lassító tényező nem túl nagy, mivel a FORTH interpreter két részből 
épül fel: egy ún. szövegértelmezőből és egy címértelmezőből. A szövegértelmező kikeresi 
a szót a szótárból, és ha megtalálta, elindítja a címértelmezőt, ami feldolgozza az utasítás- 
hoz rendelt abszolút címeket. A programok futási ideje ezzel a módszerrel csökkenthető 
a hagyományos módon interpretált programok futási idejéhez képest. 


. Az ASSEMBLER: Minden FORTH tartalmaz egy assemblert. Az assemblerrel definiálhatjuk 
a belső gépi kódú rutinokkal végrehajtott, de saját igényünk szerint kialakított utasításokat. 
Az ilyen programozástechnikai módszer szoros I/O kapcsolatot követel a külvilággal. 
A FORTH bizonyos értelemben hasonló az assemblerhez, éppen olyan gyors, de könnyebb 
elsajátítani. 

. A TÁR: A tár minden programnyelv számára fontos, ez alól a FORTH sem kivétel. A FORTH 
tárkezelésének speciális tulajdonsága, hogy valahányszor megváltoztatjuk a tár egy blokk- 
jának tartalmát, a FORTH egyidejűleg módosítja a lemez megfelelő blokkjának tartalmát 
is, ha a lemezegység be van kapcsolva. 
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5.2 A FORTH és a BASIC összehasonlítása 


Ebben a fejezetben bemutatunk egy FORTH és egy BASIC programot, amelyek azonos 
feladatot oldanak meg. Így egyrészt összehasonlíthatjuk a két nyelvet, másrészt érzékelhetjük 
a FORTH nyelv előnyeit a BASIC-hez képest. 

A FORTH program megírásához szükségünk van a nyelv minimális ismeretére. 

Az 5.1 fejezetben említettük, hogy a verem nagyon fontos szerepet játszik a FORTH nyelvben, 
és a veremelvet a HP zsebszámológép működési elvéhez hasonlítottuk. 

Számítsuk ki a (213) 4 (4-5) kifejezést HP zsebszámológépen. A gombok megnyomásának 
sorrendje: 


2 CENTER: 3 4 4 CENTERS 5 8 e 
A kép kissé zavarosnak tűnik első látásra, hiszen zárójeleket nem használhatunk. 
Amikor megnyomtuk a 2-t, majd az ENTER-t, a 2 szám bekerült a verem tetejére. Mognyomva 


a 3-at, a 2 egy hellyel lejjebb csúszott, és fölé került a 3. 
A VEREM: TETEJE 3 


ALJA 


A 1 megnyomásakor a gép elvégzi az összeadást, és az összeget a verem tetejére helyezi. 
A 4 művelethez leemeli a. verem tetején talált két számot, ezeket összeadja, és az eredményt 
visszateszi a verembe: 


A VEREM: TETEJE 


ba 


ALJA 


Ha megnyomjuk a 4-et, az 5 eggyel lejjebb csúszik, és a 4 kerül a verem tetejére. 


A VEREM: TETEJE 


an 


! 


ALJA 


Ha ismét megnyomjuk az 5-öt, a folyamat megismétlődik: 
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A VEREM: TETEJE 5 


ran 


ALJA — 


A -t- művelethez ismét kiemeli a két legfelső számot a veremből, majd az eredményt visszateszi 
a verembe: 


A VEREM: TETEJE 9 


[j 


ALJA 
Az utolsó művelet a szorzás. Elvégzése hasonló az eddigiekhez: 


A VEREM: TETEJE 45 


ALJA 


Kissé hosszadalmas lenne, ha nekünk is így kellene számolnunk, de a zsebszámológépek, 
sőt mindezidáig a számítógépek is így működnek. Azok, akik valaha assembler nyelven 
programoztak, rendkívül könnyen elsajátítják a FORTH nyelvet. A többieknek sem okozhat 
különösebb gondot, hiszen hihetetlenül egyszerű nyelv, a tanulásban az egyetlen nehézséget 
az okozhatja, hogy ez a nyelv egyetlen másikhoz sem hasonlítható. 

Nézzünk meg közelebbről egy néhány soros FORTH programot, amelyből egyrészt kiderül 
a verem sajátos szerepe, másrészt az, hogy hogyan kell a FORTH szavakat definiálni. 

A program feladata egy szám köbének meghatározása. Miután erre a célra nincs külön 
utasítás, definiálnunk kell a köbreemelést: 


:KOB (EZT A SZÓT AKARJUK DEFINIALNI) 
DUP DUP (A SZAMOT KÉTSZER BEIRJUK A VEREMBE) 
€. (A VEREM TARTALMAT KETSZER MEGSZOROZZUK ÖNMAGAVAL) 


Elemezzük a programot! A kettőspont közli a FORTH-szal, hogy egy szót definiálunk. Ha nem 
írnánk kettőspontot, a FORTH a következő kérdést tenné fel: 


KOB? 
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ezzel jelezve, hogy ez a szó nem szerepel a szótárában. A kettősponttól kezdve a pontosvesz- 
szóig terjedő programrészt a FORTH a szó definíciójának tekinti, értelmezi, majd a következő 
kedves üzenetet küldi: 


OK 


ezzel jelezve, hogy az új szót elhelyezte a szótárában, azaz a KOB utasítást beépíthetjük a 
programunkba. Ha nem tároljuk lemezen a bővített szótárat, természetesen az új szó csak 
a gép kikapcsolásáig él, de ha igen, bármikor dolgozhatunk a kibővített szótárral. 

A DUP utasítás egy másolatot készít a verem tetején levő értékről, és az előző értéket egy 
hellyel lejjebb csúsztatva, ezt is berakja a verembe. Mivel egy szám köbét akarjuk kiszámítani, 
a számról két másolatot kell! készítenünk. Ha a verem tetején 5 volt, a verem tartalma a 
következőképpen módosul: 


A VEREM: TETEJE 5 


[ RÓL ER ó 1) 


ALJA — 


A köbreemeléshez összesen két szorzást kei! elvégeznünk, amit a FORTH számára két 
csillaggal jelölünk. A szorzások végrehajtása után az eredmény a verem tetejére kerül, és 
készen is vagyunk. 

Jegyezzük meg, hogy a definiálás során műveletvégzés nincs. A pontosvessző a FORTH-ot 
ún. fordító üzemmódra kapcsolja. Fordító üzemmódban sorra elemzi a definícióban előfordu- 
ló utasításszavakat, és megjegyzi, hogy mi az egyes szavak címe a szótárban. Ha program- 
sorban használjuk az új utasítást, a FORTH meghívja a definícióban szereplő utasításokat, 
azaz végrehajtja az új szóban kijelölt műveleteket. 

A pont az alábbi utasításszavak mögött azt jelenti, hogy a művelet eredményét a verem 
tetejére kell tenni. 

Próbáljuk ki az általunk definiált új műveletet: 


Bevitel a FORTH üzenete: 
5 KOB. 125 OK 
1 KOB. 1 OK 

— 15 KOB. — 3375 OK 


: Amint láttuk, rendkívül egyszerű az új szavak definiálása, és ez a módszer hatékonnyá teszi 
a programozási munkát, hiszen olyan utasításkészlettel dolgozhatunk, amely tökéletesen 
illeszkedik egy-egy speciális feladat arculatához. 

Most hasonlítsuk össze a BASIC-et a FORTH-szal. Az összehasonlítás alapja legyen az a 
program, amely kiszámítja 0-tól 10-ig az egész számok köbét. 

A FORTH programban természetesen felhasználjuk az előbb definiált KOB utasítást. 
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1.. FORTH 


:KOBSZAMOK 

100 (A SZAMOK 0-TÓL 10-IG A VEREMBE! LIFO) 
DO (A CIKLUS INDUL) 3 j 
CR I.! KOB (AZ I SZAM ES KOBENEK KIIRASA) 

LOOP (A CIKLUS VEGE) 


. 


KOBSZAMOK 


DODONOMARONRN IO 
ték 
NN 
kéj! 


REM títtxt PSZ/1. átátttát 


: 

10 REM EGY SZAM KOBENEK KISZAMITASA 
29 MIN-G:MAX-? 

39 FOR I-MIN TO MAX:PRINTI,ItIKI 


88 
ét 


0:rS 


EA 


DONOUAWHN E 
ei 
N 
u 


Mindkét program megközelítőleg azonos számú sorból áll, de a FORTH program jóval 
kevesebb helyet foglal el a tárban mint a BASIC program, és ez még nem minden. Hasonlítsuk 
össze a futási sebességet: 
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1. FORTH 


: IDOTESZT 

30000 0 (0-TOL 30000-IG) 

DO (A CIKLUS KEZDETE) 

(URES CIKLUS) 

LOOP (A CIKLUS VEGE) 

: (A DEFINICIOÓ VEGE) 
2. BASIC 

B REM dtiéittt PSZ.  4tátttir 

1 

2 : 


18 REM IDOTESZT 

28 MIN-:0:MAX:3BORG 
38 FOR IzMIN TO MAX 
40 NEXT I 

59 END 

KESZ . 


Az eredmény meglepő: 
Nyelv Idő 


BASIC kb. 405 
FORTH kb. 4s 


Mindkét program azonos gépen, a Commodore 64-esen futott! 

Reméljük ez a kis bevezetés meghozta az Olvasó kedvét a FORTH nyelv tanulmányozásához. 
Könnyű vele programozni, rendkívül gyors és kis tárigényű! 

Néhány információ azoknak, akik közelebbről szeretnének megismerkedni ezzel a program- 
nyelvvel: 

A hivatkozási (standard) nyelv a FORTH 79. A 64-es változat alatt megírt programokat kisebb 
változtatásokkal átalakíthatjuk a 79-es változatnak megfelelő programokká. 

A FORTH 64 elérhető és azonnal indítható modulok formájában van a lemezen tárolva. 
Három, egyenként 1024 byte-os lemezpuffert használ (a $C00-ás címtől kezdve), és saját 
képernyőtárral dolgozik (a $0400-as címtől kezdve). 


FORTH - A haladó programozók szóftverfejlesztő eszköze. 


Érdemes megjegyezni, hogy egyre több professzionális szoftverfejlesztő tér áta FORTH nyelv 
használatára, pontosan a fent leírt előnyei miatt. A FORTH programfejlesztésre kiválóan 
alkalmas, hiszen strukturált nyelv, és ez a strukturáltság gyorsítja a fejlesztőmunkát. Ugyan- 
akkor futási sebességben megközelíti a gépi kódú programot. Ma már sok olyan általános 
szoftver létezik a Commodore 64-esen is, amelyet ezen a nyelven fejlesztettek ki, ilyen például 
a széles körben elterjedt Calc Result. 

A szoftverházak számára nagyon fontos, hogy a FORTH az ún. , szállítható" nyelvek család- 
jába tartozik. Ez azt jelenti, hogy az egyik géptípuson megírt programot nagyon könnyen 
áttehetjük egy másik géptípusra. Így erősen csökkenthető az egy-egy programcsomag adap- 
tálásához szükséges idő. 


Út, 


5.3. További programnyelvek: PASCAL, LOGO, TURTLE 
GRAPHICS 


A számítógép használhatóságát az általa ismert programnyelvek határozzák meg. A Com- 
modore 64-es nemcsak egyetlen nyelven programozható. A Commodore 64-re kapható CP/M 
operációs rendszer segítségével csaknem minden nyelvet használhatunk, ami a mikrogépe- 
ken egyáltalán elérhető. ; 
Mire szolgálnak az egyes nyelvek? 


PASCAL 

Ezt a nyelvet eredetileg oktatási célra szánták. Fejlesztője, a svájci N. WIRTH professzor a 
strukturált programozáshoz kívánt eszközt teremteni. A PASCAL-t ma már sok intézetben és 
vállalatnál használják alapnyelvként, és számos felsőoktatási intézményben oktatják. 
LOGO 

Ez a programnyelv többek számára ismeretlen. Elsajátításához még egy gyereknek is csak 
néhány órára van szüksége, éppen ezért főként a gyerekek programozási nyelve. 

TUATLE GRAPHICS (teknösbéka grafika) 

A TURTLE majdnem teljesen ismeretlen programnyelv, amely szerkezetileg a PILOT és a 
LOGO közé sorciható. Ahogyan az a nevében is benne van, elsősorban a grafika kezelését 
megkönnyítő utasításokat tartalmaz, és mivel a Commodore 64-es gazdag grafikai lehetősé- 


geket tartalmaz, ezen a gépen különösen jól használható programnyelv 


Nézzünk egy kis példát a TURTLE alkalmazására: 


9 REM tüűtt FPS3. 446464 

Ét 

77 38 

4 REM A KEPERNYO SZINENEK BEALLITASA 

5 SCREEN COLOR CYAN:A HATTER SZINE CIAN 

6 BORDER COLOR CYAN:A KERET SZINE CIAN 

7 TURTLE COLOR BLACK:A TEKNOSBEKA SZINE FEKETE 
8 REM ATKAPCSOLAS NAGYFELBONTASU GRAFIKARA (HIRES) 
? HIRES 

19 REM ATKAPCSOLAS IRASRA 

11 PEN UP 


12 REM POZICIO,A KEPERNYO BAL FELSO SARKARA 
13 MOVE TO 0-0 

14 REM AZ IRAS KIKAPCSOLASA 

15 PEN DOWN 

16 REM POZICIO,A KEPERNYO JOBB ALSO SARKARA 
17 MOVE TO 179-319 

18 REM VARAKOZOCIKLUS 

19 WAIT 390 

KESZ . 
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A program egy egyenest rajzol a képernyőre a (0,0) koordinátájú pontból a (199319) koordi- 
nátájú pontba. A rajzolás úgy történik, mintha plotteren dolgoznánk. Amíg a PEN DOWN 
utasítás érvényben van, a mozgás közben érintett pontok megjelennek a képernyőn (pl. a 
MOVE utasítás hatására). y ; Hé je 

Az elmondottakból kitűnik, hogy a Commodore 64-esen igen sóktéle programnyelvet hiasz- 
nálhatunk. Ezek a programnyelvek képessé teszik a gépet arra, hogy minden vonatkozásban 
felvegye a versenyt a nagyobb rendszerekkel ellátott számítógépekkel. 
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6. FEJEZET 


A CP/M OPERÁCIÓS RENDSZER A COMMODORE 
64-ESEN 


6.1 Bevezetés a CP/M-be 


A CP/M a mikrogépeken leggyakrabban alkalmazott operációs rendszer, amely a maga 
nemében egyedülálló. Nem egyszer előfordult már a számítógépek történetében, hogy egy- 
egy operációs rendszer gyermekbetegségei jóval a bevezetés után derültek ki. A CP/M ebből 
a szempontból kivételt jelent, működése teljesen biztonságos. Valójában miért van szükség 
a Commodore 64-es használójának a DOS-on és a BASIC 2.0-n kívül másik operációs 
rendszerre? 

Ezt a kérdést főként azok a Commodore használók teszik fel, akik még sohasem dolgoztak 
nagy rendszerekkel. A nagyszámítógépes rendszerek olyan mennyiségű szoftvertermékkel 
állnak a használóik rendelkezésére, amelyről az egyszerű kívülállók (a Commodore-osok 
tábora) nem is álmodnak. A Commodore 64-esre viszonylag kevés önálló szoftvertermék 
készült, ezek számát hihetetlenül megnöveli a CP/M operációs rendszer használata. Az 
utóbbi időben ugyan megjelent néhány szövegszerkesztő, adatfeldolgozó stb. program a 
kereskedelmi forgalomban az addig kapható játékprogramokon kívül, de ez messze nem 
jelenti azt, hogy sikerült volna behozni a CP/M előnyét. A CP/M egyrészt tehát kiszélesíti a 
Commodore 64-esen alkalmazható szoftverek körét, másrészt ezek a programok jóval széle- 
sebb piaccal rendelkeznek. A CP/M alatt fejlesztett rendszerek használóinak száma messze 
meghaladja a Commodore géppel rendelkezőkét. Meg kell azonban említenünk egy valóban 
létező gondot! 

Mit jelent egy program CP/M alatti alkalnazhatósága? Az egyik CP/M vajon felismeri a másik 
alkalmazásával készült programot? Sajnos a 


CP/M NEM MINDIG UGYANAZ A CP/M! 


A számítógépek gyártói ugyanis gyakran meglepetést okoznak a használóiknak azzal, hogy 
bizonyos módosításokat végeznek a CP/M-en. Az ilyen változtatás többnyire azzal jár, hogy 
a rendszer kompatibilitása a többi géphez csak látszólagos. A Commodore 64 CP/M rendsze- 
rének is megvannak a maga sajátosságai. Így például ebbe a rendszerbe az I/O byte-ot 
egyáltalán nem építették be, így a Commodore 64-es csak a 40 karakteres sorokból álló 
képernyőszerkesztésre képes, és a lemezformátum sem egyezik a többi gépek lemezformátu- 
mával. Ezekre a problémákra a későbbiek során még visszatérünk. 


A CPIM néhány fontos tulajdonsága: 


1) Csak olyan gépeken használható, amely legalább 48 kbyte szabad RAM területtel rendel- 
kezik. 

2) A szabad területnek a $0100-as címtől kell kezdődnie. 

3) A legtöbb program a 80 oszlopos 24 soros képernyőfelbontást használja. 

4) A legtöbb CP/M szoftver csak 87-(inch)-es lemezen működik. 
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Vegyük sorra ezeket a tulajdonságokat. A CP/M minimum 48 kbyte-os munkaterületet igényel. 
Nagyon sok mikrogép tárkapacitása bővíthető 48 kbyte-ra. A Commodore 64 már alapkiépí- 
tésben nagyobb kapacitással rendelkezik. A gép további sajátossága, a teljes ROM terület 
kikapcsolhatósága (I. ,A 64 Belső felépítése" c. könyvet). A ROM kikapcsolásával a ROM 
területen tárolt rutinokat a CP/M alatt is használhatjuk. Ugyanezt más gépeken sehogy, vagy 
csak nagyon körülményesen oldhatjuk meg. Van pl. olyan gép, amelynek a ROM területe a 
CP/M tárkiosztása szempontjából olyan szerencsétlen helyen van (pl. 0000-tól), hogy ezen 
a gépen a CP/M operációs rendszert a megszokottól teljesen eltérő módon kell kialakítani. 
Azok a programozók, akik ilyen operációs rendszerrel dolgoznak, és pl. meg akarják keresni 
az egyes CP/M rutinokat, beleőszülnek a vállalkozásba. A kompatibilitás ilyen esetekben 
szóba sem jöhet. A Commodore 64-es szerencsére nem tartozik az ilyen tárkiosztású gépek 
közé. A CP/M a Commodore 64-esen a megszokott helyre kerül (a $0100 tárcímtől kezdve). 


Az első gondot a CP/M és CBM 64-es illeszkedésében a képernyő kijelzésmódja okozza. 

A CP/M, éppúgy mint a Word Star, a Data Star, és egyéb szoftverek, 80 karakteres kijelzést 

igényel, amire a CBM 64-es nem képes. Az illesztés mégsem megoldhatatlan! Erről bővebbet 

a 6.3 fejezetben találnak Olvasóink. 

Az utolsó problémát a lemez okozza. Mint azt említettük, a legtöbb alkalmazói szoftver 87-es, 

a 1541-es lemezegység pedig 5 4"-es lemezekkel dolgozik. Egyetlen vigasz, hogy az utóbbi 

időben egyre több számítógépgyártó cég tér át az 5 1447-es lemezek használatára, így egyre 

több olyan szoftvert dolgoznak ki, amely a különböző lemezek közötti adatátvitelt biztosítja. 


Hogyan épül fel a CP/M? 
A CP/M operációs rendszer négy különböző egységből áll: 


1) BIOS (Basic Input/Output System) 
Ahogyan a neve is mutatja, a BIOS biztosítja a rendszer és a külvilág kapcsolatát, azaz 
továbbítja például a nyomtató, a képernyő vagy a lemezegységnek szóló üzeneteket. 
Az operációs rendszer egy BIOS-beli függvényhívással értesül az éppen folyamatban levő 
eseményekről. 

2) BDOS (Basic Disk Operating System) 
Ez a rész vezérli a lemezegységeket -— azaz kezeli a lemez tartalmát, a tartalomjegyzéket 
és lebonyolítja a tényleges írási és olvasási utasításokat. A műveletek végrehajtása függ- 
vényhívással történik. 

3) CCP (Consol Command Processor) 
Minden operációs rendszerrel valamilyen módon közölnünk kell a kívánságainkat. Az 
üzenetváltás eszköze a Commodore 64-esen a billentyűzet. A CCP továbbítja a billentyű- 
zetről érkező üzeneteket az operációs rendszernek — ezt úgy kell elképzelni, mint egy 
telefonvonalas kapcsolatot az adó és a vevő között. 

4) TPA (Transient Program Area) 
A TPA az a szabad tárterület, ahol a rendszer a használó által írt prógrámbkát tárolja. 


A BIOS, a BDOS, a CCP és a TPA elhelyezkedése a tárban: 


Jel Kezdőcím 


FDOS (BIOS t BDOS) $9C00 


CCP $9400 
TPA $0100 
Rendszerparaméterek $0000 


AZ FDOS MŰVELETEI: 


Műveletkód Megjelölés 


BIOS 
00 Rendszer reset 
01 ASCII karakter a terminálról 
02 ASCII karakter a terminálra 
03 Egy karakter a szalagolvasóról 
04 Egy karakter a szalaglyukasztóra 
05 Egy karakter a nyomtatóról 
06 Egy karakter a nyomtatóra 
07 Egy külső egység státuszának leolvasása 
08 Státusz küldése egy külső egységhez 
09 Karakterlánc a pufferből 
10 Karakterlánc a pufferbe 
11 A konzol státusz beolvasása 
BDOS 
12 Változatszám olvasása a CP/M-ből 
13 Disk reset 
14 Egységszámválasztás 
15 Egy file megnyitása (OPEN) 
16 Egy file lezárása (CLOSE) 
17 Az első program megkeresése az FCB-ben 
18 A következő program megkeresése az FCB-ben 
19 Program törlése (DELETE) 
20 Olvasás egy soros file-ból 
21 Írás egy soros file-ba 
22 Egy file létrehozása 
23 Egy program nevének megváltoztatása (RENAME) 
24 Az elérhető egységek megadása 
25 Az aktuális egységszám beolvasása 
26 A DMA cím beállítása 
27 Egy cím beolvasása 
28 Írásvédelem 
29 Az írás/olvasás kapcsoló leolvasása 
30 Az írás/olvasás kapcsoló beállítása 
31 A lemezparaméterek leolvasása 
32 Az ID írása/olvasása 
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93 Olvasás egy közvetlen elérésű file-ból 


34 irás egy közvetlen elérésű file-ba 
39 A program hosszának kiszámítása 
36 A rekord címének beolvasása 


A rendszer minden rutint egy sajátos , minta" alapján hív meg. Működésének megértéséhez 
szükség van a 8080-as processzor gépi nyelvének ismeretére. Mivel a CP/M-et ezzel a 
processzorral fejlesztették, és a Commodore 64-esbe egy 2780-as processzor van beépítve, 
ami , megérti" a 8080-as gépi nyelvét, a legtöbb CP/M adaptálás ehhez a nyelvhez igazodik. 
Ha valaki nem ismeri ezt a nyelvet, de mélyebben szeretne foglalkozni a CP/M-mel, annak 
azt javasoljuk; hogy ne csak egy CP/M kézikönyvet (pl.: CP/M Handbuch - RODNAY ZAKS) 
tanutmányozzon át, hanem egy 2780-as vagy 8080-as kézikönyvet is. 


Hogyan végzi el a rendszer az egyes műveleteket? 


Nézzünk erre egy példát. A Commodore CP/M változatszámának megállapításához az alábbi 
rutinok szükségesek: 


MVI C,12 ;12-es művelet 
CALL 0005 ;ugrás a BDOS-ba 
CPI 20H ;$20 a CP/M 2.0 változatra utal 


A C regiszterbe betöltődik a 12, mint a változatszámot meghatározó művelet azonosító kódja. 
Elágazás (a 0005-ös címre) előtt a C regiszterbe mindig bekerül a műveletkód. A műveletkód 
alapján a CP/M tudja, hogy a változatszámot kell meghatároznia, és automatikusan a 
rendszer olyan részére ugrik, amely elvégzi az olvasást. Ezután a BDOS ismét visszatér a gépi 
kódú programra, és a változatszámot tárolja az akkumulátorban. Ha az akkumulátor tartal- 
ma $20, arra következtethetünk, hogy a változatszám legalább 2.0. 

Programozás közben ez az információ nagyon fontos, ugyanis a 2.0-nál alacsonyabb válto- 
zatok nem ismerik pl. a közvetlen elérésű file-t. 

A programot másik gépen csak akkor futtathatjuk, ha annak CP/M változatszáma legalább 
20 


A CP/M művelethívásai alapvetően a regiszterek tartalmára épülnek. A legfontosabb a 
C regiszter, amely a mindenkori művelet kódját tartalmazza, és amelynek természetesen a 
BDOS/BIOS hívása előtt értéket kell adni. A kívánt művelet elvégzése után a szükséges 
információk a többi regiszterben állnak rendelkezésre. Abban az esetben, ha nem információt 
kapunk, hanem információt küldünk, természetesen a hívás másképpen történik. A C regisz- 
ter ekkor is a műveletkódot tartalmazza, de az egyéb regiszterek tartalmát ez esetben a hívás 
előtt kell beállítani. 


Miért műveletkód? 
Mint már említettük, a CP/M operációs rendszer előnye a rugalmasság, azaz általában a 
CP/M alatt megírt program minden olyan gépen futtatható, amelyen van CP/M. A rugalmas- 


ságot az biztosítja, hogy a BIOS/BDOS-t, ill. a CCP-t könnyen meg lehet változtatni a 
géptípusnak megfelelően. 
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A programozónak nem kell foglalkoznia az eltérésekkel, nyugodt lehet a program , szállítha- 
tósága" felől, ugyanis az operációs rendszer a BIOS/BDOS hívásokat nem közvetlen címzés- 
sel, hanem a 0005-ös tárcímen keresztül bonyolítja le. 

A CP/M egyes részeit bármikor megváltoztathatjuk anélkül, hogy az a rendszer működésének 
lényegét érintené. A CP/M felépítése hasonló a Commodore 64-es Kernal-ROM felépítéséhez, 
ahol a Kernal rutinok belépési pontjait egy ún. vektortáblázat tartalmazza. Ha az egyes 
rutinokat megváltoztatjuk, a régi programok ugyanúgy futnak, mint korábban, ,észre sem 
veszik", hogy közben az operációs rendszer megváltozott. 


A CCP utasításai 


A CCP a programozó és a CP/M közötti kapcsolatteremtés eszköze (interface). A CCP-ből 
tetszőleges programot futtathatunk, de használhatjuk a CCP saját utasításkészletét is. 


1) DIR (Directory): Ez az utasítás megjeleníti képernyőn a lemez tartalomjegyzékét. 
Az utasítás különböző változatai: 


— DIR: az aktuális lemezegység teljes tartalomjegyzékének kiírása. 


— DIR B: a B (1) lemezegységben található lemez teljes tartalomjegyzékének kiírása. A B (1) 
helyett A (0)-t is írhatunk, ekkor az utasítás a másik egységre vonatkozik. 


— DIR (NEV.EXT): az utasítás hatására a rendszer megvizsgálja, hogy az adott nevű 
program szerepel-e a lemezen vagy sem. 
A NEV tetszőleges, maximum nyolc karakterből álló, betűvel kezdődő és különleges 
karaktereket nem tartalmazó szöveg lehet. 
Az EXT a programnév három betűs kibővítése, ami a program típusára utal. Pl. ha ez 
a bővítés COM - a program betöltés után azonnal indul, ha TXT, akkor szöveget 
tartalmazó file-ról van szó, a BAS — BASIC programra utal stb. 


— DIR ($xEXT): az összes olyan programnyelvet kijelzi, amelyek az adott típusba tartoznak. 
Pl. a DIRx. COM utasítás az összes közvetlenül futó programot megkeresi a lemezen. 


A CP/M kézikönyvben megtaláljuk a DIR utasítás összes opcióját. 
Nézzünk erre egy példát: 


AZ DIR 

A : MOVCPM COM : PIP COM 

A :ED COM : ASM COM 

A : DDT COM : LOAD COM 
A: STAT COM : SYSGEN COM 
A:DUMP " COM : DUMP ASM 

A : COPY COM : CONFIG COM 


2) ERA (ERAse): egy vagy több programot töröl a lemezről. 
Itt is többféle opció létezik: 


— ERA c NEV.EXT- 


— ERA CC 4.EXT- 
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3) REN (REName): a lemezen található valamely file vagy program átnevezése. Az utasítás 
csak egy formában használható: 


—- REN Cúj név: — crégi név: 


4) TYPE: csak a szöveg file-ok esetén használható. Kiírja a képernyőre a file tartalmát. 
Formátuma: 


— TYPE c file-név.EXT2 
A típus TXT, PRN vagy ezekhez hasonló lehet. 


5) SAVE: ez az utasítás első látásra kicsit bonyolultnak tűnhet. Elsősorban a DDT-vel módosí- 
tott programok, ill. a módosított CP/M változatok tárolására használjuk. Formátuma: 


— SAVE clapok száma: cCnév.EXT- 
A lapok száma a 256 byte-os egységek számát jelenti. A következő parancs: 
SAVE 50 TESZT.COM 


a tár $0100-as címétől kezdve (a TPA kezdőcíme) a $32FF-ig terjedő tárterület tartalmát 
TESZT.COM címen a lemezre menti. A hossz: 504256 byte. 


6) USER: ezzel az utasítással feloszthatjuk a lemezen tárolt programokat az egyes használók 
között, azaz megakadályozhatjuk, hogy a programokhoz bárki hozzáférjen. Ennek termé- 
szetesen a Commodore 64-esen nincs sok jelentősége. 

Az utasítás formátuma: 


-— USER a használó kódja 


A használó kódja egy egész szám 0-tól 15-ig. 
Az adott kóddal azonosított használó csak a számára kijelölt programok tartalomjegyzé- 
két érheti el. A használó kód alapértelmezése 0. 


A fenti utasítások többségét minden CP/M változat megérti, kivéve a USER utasítást, amely 
a 2.0 változat kifejlesztése után került a rendszerbe. 

A következő fejezetben ismertetjük a CP/M rendszer programjait: a PIP, az ED, a DDT és a 
STAT programokat. Ezek minden CP/M rendszerlemezen megtalálhatóak, és nem parancsok, 
hanem programok, amelyek betöltés után bővítik a CP/M rendszer utasításkészletét. 


6.2 A CP/M rendszer programjai 


A következő programok tartoznak a CP/M standard változatához: 


— STAT.COM Általános rendszerinformációkat (pl. egy lemez szabad kapacitása, egy- 
ség kijelölések stb.) szolgáltató program. 
— ASM.COM A 8080-as processzor assembly nyelvének assemblere. (A gépi kódhoz 


legközelebb álló mnemonikokkal készült programnyelv fordítója.) 

—- LOAD.COM Megszerkeszti a lefordított programok futtatható változatát (a lemezen a 
futtatható modulok neve után a .HEX rövidítés szerepel). 

— DUMP.COM A .COM típusú programokat olvasható formában (hexadecimálisan) meg- 
jeleníti a képernyőn. 

— PIP.COM Lebonyolítja a különböző külső egységek közötti adatforgalmat. 


— ED.COM A CP/M szövegszerkesztője. Megkönnyíti a szövegek, assembler nyelvű 
programok stb. tárolását és szerkesztését. 

SYSGEN.COM Míg a PIP programmal csak file-okat tudunk másolni, a SYSGEN a lemezt 
sávonként eléri, másolja, ill. létrehoz új BIOS sávokat. (I. 6.3) 

MOVCPM.COM Biztosítja a CP/M standard változatának illeszkedését az egyes géptípu- 
sokhoz. 

SUBMIT.COM Az adatbevitel során gyakran előfordul, hogy valamilyen hiba folytán az 
állomány egy része elvész, és az adatbevitelt meg kell ismételni. A SUBMIT 
programmal biztonsági input-file-okat hozhatunk létre, melyek feltöltése 
az előzetesen rögzített paraméterektől függő időpontokban kezdődhet. 

XSUB.COM Ez a program megkönnyíti a gyakran ismétlődő utasítások begépelését. 
Csak a SUBMIT programmal együtt használható. A SUBMIT futása közben 
dolgozhatunk a billentyűzeten. 


Az egyes programok kimerítő ismertetése meghaladja e könyv kereteit, az érdeklődők további 
ismereteket találnak a CP/M kézikönyvben. 
Az alábbiakban a három legfontosabb programról ejtünk még néhány szót. 


STAT 


A rendszer egyik legfontosabb programja a STAT program, amelyet STATUS programnak is 
nevezhetünk. Ez a program számos információt szolgáltat a rendszer pillanatnyi állapotáról. 
Nemcsak a lemez szabad kapacitását, az egyes programok hosszát, hanem többek között 
az író/olvasó fej pillanatnyi állapotát (írás- vagy olvasási fázis) is le tudjuk kérdezni, sőt az 
erre vonatkozó kapcsoló beállításával meg is tudjuk változtatni ezt az állapotot. Lekérdezhet- 
jük az egyes hozzárendeléseket is. Ezen a ponton meg kell említeni a Commodore 64-es CP/M 
változat egy korlátját: minthogy IOBYTE nincs beépítve, a hozzárendeléseket a STAT prog- 
rammal sem tudjuk megváltoztatni, ami azonban a munka során általában nem zavaró. 


Nézzünk egy példát a STAT használatára: 
ASSTAT VAL: 


TEMP R/O DISK: D:- R/O 
SET INDICATOR: D:FILENEV.TYP $R/O $R/W $SYS $DIR 
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DISK STATUS : DSK : D:DSK: 
USER STATUS : USR: 
IOBYTE ASSIGN: 


GONSS TORT BAT AUGT 
RORAZSÉTYSPRTSURESÜRZ 
PUNT E Ek PT P2: 
ESTE zu BEV tr ER ELEzéMet. 


A fentiekből látható, hogy mely értékeket és milyen módon változtathatunk meg (legalábbis 
elméletileg), de mint már említettük, az IDBYTE ASSIGN értékek a C 64-esen nem változtatha- 
tók meg. 


Ha például a lemezt írástól védeni akarjuk, akkor elegendő a következőket beírni: STAT 
A: R/O. Ez. az írásvédelem addig marad érvényben, amíg a gépet ki nem kapcsoljuk. A CP/M 
egység kiutalásához gépeljük be a következő utasítást: STAT A:DEV: 

Az eredmény a C-64-esen a következőképpen néz ki: 


AZSTAT DEV: 


CON: IS TTY: 
RDR: IS TTY: 
PUN: IS 2 TEX: 
[Sgt KÉSÉS Ko AZN TIL IÉ és 


Az említettek miatt a STAT LST:— LPT: módosításnak a fenti hozzárendelésekre nincs semmi 
hatása. 


A lemez paramétereit a következő utasítással kérdezzük le: 
A 5 STAT DSK: 


A : DRIVE CHARACTERISTICS (lemezegység azonosító) 
1088 : 128 BYTE RECORD CAPACITY (szabad terület rekordban) 

136 : KILOBYTE DRIVE CAPACITY (szabad terület kbyte-ban) 
64 : 32 BYTE DIRECTORY ENTRIES (file bejegyzések száma) 
128 : REOCRDS/EXTENT 

8 : RECORDS/BLOCK 

34 : SECTORS/BLOCK 

2 : RESERVED TRACKS 


PIP 


Általános file-másoló program. A PIP programmal az egységek között másoláson kívül a 
nyomtatóra is listázhatunk szöveges file-okat. Rendkívül előnyös, hogy a nyomtatás képét 
megszerkeszthetjük, azaz a nyomtatott szöveget pl. sorszámozhatjuk, tabulálhatjuk stb. 
A következő utasítás a teljes lemez tartalmát átmásolja az A egységről a B egységre: PIP 
B:— Ax... A PIP LIST: DUMP.ASM utasítással pedig kiírathatjuk nyomtatóra a DUMP.ASM 
szövegfile-t, feltéve, hogy a nyomtatót előzetesen csatlakoztattuk a géphez. 
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ED 


Az ED szövegszerkesztővel tetszőleges szövegeket, gépikódú programokat, egyéb nyelveken 
írt (FORTRAN, COBOL stb.) lefordítandó programokat gépelhetünk be és tárolhatunk a 
lemezen. Az ED kezeléséhez bizonyos gyakorlatra van szükség, és bár lehet, hogy a Commo- 
dore használóknak ez eleinte kissé bonyolultnak tűnik, gazdag szolgáltatásai megérik a 
fáradságot. 


Lássunk ismét egy példát: 


AZ ED TESZT.TXT 

NEW FILE 

sel 

EZ A SZOVEG ELSO SORA 

EZ A MASODIK a 
SLCTRL2 -Z (Nyomja le egyszerre a CTRL és a Z billentyűt) 
aE 


A fenti néhány utasítással egy szöveg első két sorát lemezen tároltuk a TESZT.TXT nevű 
file-ban. A csillag az ED program közvetlen parancsa. Az E hatására a szerkesztés befejező- 
dik, a program tárolja a szöveget lemezen, majd a CP/M az AZ várakozó üzenettel visszaje- 
lentkezik. A tárolt szöveget a TYPE TESZT.TXT utasítással bármikor megjeleníthetjük képer- 
nyőn. A szövegszerkesztés utasításkészletét (módosítás, törlés, beszúrás, csere stb.) a CP/M 
kézikönyv részletesen tartalmazza. 
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6.3 Standard CP/M szoftverek a CBM 64-esen 


Mire kell figyelnünk, amikor egy CP/M szoftvert akarunk illeszteni a Commodore 64-es 
hardveréhez? 

Először is arra, hogy a legtöbb CP/M szoftver 80 oszlopos kiírással dolgozik, szemben a CBM 
64-es 40 oszlopos kijelzésével, tehát feltétlenül be kell szerezni egy 80 karakteres kártyát. 
Másrészt ahhoz, hogy a CP/M előnyeit kihasználhassuk, célszerű nagy és gyors CBM lemez- 
egységet beszereznünk. Magát a CP/M-et a MOVCPM és SYSGEN programok illesztik az 
egyes géptípusokhoz. A MOVCPM program szervezi az operációs rendszer szükséges tárki- 
osztását mégpedig úgy, hogy a teljes tárkapacitás kihasználható legyen. A CP/M rendszer 
indításakor a gép üzenete: 44 K CP/M. 

A SYSGEN (rendszergenerálás) programmal a CP/M-et átmásolhatjuk a saját lemezünkre. 


6.4. A 280-as processzor tárkiosztása 


A 2780-as processzor a CP/M kártyán a Commodore 64-es teljes RAM területét (64 kbyte-ot) 
meg tudja címezni. A 280-as processzor startcímként (reset) a 0-s címet használja, szemben 
a 6510-essel, melyen ez a cím a processzor port címe. Emiatt a tár címzése másként történik 
a 6510-es processzoron, és másként a 2780-as processzoron keresztül. A címzésmódok közötti 
eltérést, egy, a CP/M kártyára beépített hardver kezeli. Ha a 280-as a 0-s tárcímre hivatkozik, 
a hardver a címvezetéken a 6510-eshez a $1000-es címet közvetíti. Ahhoz tehát, hogy a 
6510-es tárcímből 2780-as tárcímet kapjunk, az előbbiből $1000-et le kell vonnunk, vagy 
hozzáadunk $F000-t úgy, hogy az átvitelt figyelmen kívül hagyjuk. Így a 6510-es 0-$1000-ig 
terjedő 4 kbyte területét a 280-as címtartományának végére helyezzük át. Ezt a területet a 
6510-es nulláslapja, a verem, a munkaterület, ill. a videoram foglalja le. A maradék 2 kbyte-os 
($800-tól $FFF-ig) területen bonyolítja le a CP/M a két processzor közötti adatforgalmat, ill. 
ezt a területet használják a 6510-es I/O rutinjai programterületként. 

A 280-as minden I/O műveletet továbbít a 6510-eshez. 

A következő ábra grafikusan szemlélteti az elmondottakat. 

A legfontosabb közös tárcímek: 


Cím 6510 280 
HSTBUF $0800  OFBOOH 256 byte-os lemezpuffer 
CMD $0900 OF900OH A 6510-es utasítás regisztere 
DATA $0901 OF90OIH Adatregiszter 
SECTOR $0902  0OF90O2H Szektorregiszter 
TRACK $0903 OF9OSH  Sávregiszter 


DISKNO $0904  0OF904H Az egységszám regisztere 
KEYCHAR — $0905 0OF9O5H A lenyomott billentyű regisztere 
MODESW — $DEO00 OFCEOOH Kapcsoló: 6510/280 

IOTYPE $0CFF ODCFFH I/O konfiguráció 
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6.5 Lemezkezelés CP/M alatt 


A lemez koncentrikus sávokra, az egyes sávok pedig szektorokra vannak felosztva. A VC 
1541-es lemez felosztása: 


Sáv Szektor 


1-17 — 0-20 
18-24 — 0-18 
25-30 — 0-17 
31-35 — 0-16 


Az összesen 683 szektor (blokk) közül a 18-as sáv szektorain helyezkedik el a lemez tartalom- 
jegyzéke, a maradék 664 blokk pedig programok és adatok tárolására használható. 

A CP/M az első két sávot az operációs rendszer számára tartja fenn, a 18-as sávot felszaba- 
dítja, tehát CP/M rendszerrel ezen a területen is tárolhatunk programokat és adatokat. 
A CP/M nem dolgozik változó szektorszámmal, minden sávon egyönietűen 17 szektort kezel, 
0-16-ig számozva. Rendelkezésünkre áll tehát 32 sáv, ezek mindegyikén 17 szektor, ez 
összesen 574 db 256 byte-os blokk, azaz 143 kbyte. Ebből valamennyit még lefoglal a CP/M 
tartalomjegyzéke (max. 64 file-bejegyzés, egyenként 32 byte, ez összesen max. 2 kbyte). 
A tartalomjegyzék a BIOS-ban (Basic Input/Output System) helyezkedik el, az ún. Disk 
Parameter Blockban, amelyben a használó a paramétereket a saját lemezkapacitásának 
megfelelően alakíthatja. A BIOS-ban található többek között a 18-as sáv tartalma (a Commo- 
dore 64-es tartalomjegyzéke). 

Az operációs rendszer által lefoglalt első két sáv felosztása a következő: 

Az 1-es sáv 0-ás szektora tartalmazza a CPM betöltőprogramot. Az 1-es sáv 1-es szektorától 
az 5-ös szektorig helyezkedik el a BIOS 65, amely a 6510-es I/O rutinból, ill. a CP/M hidegstart 
betöltőjéből áll. A CPM a BIOS 65-öt a $0A00 — $0EFF közötti tárterületre tölti be. Az ezt követő 
blokkok tartalma $0E00-tó! $0EFF-ig a $1000-$10FF tárterületre töltődik. Ez a 280-as 0-ás 
címe, ahová a hidegstart betöltő kerül az átvitel során. Végül, míg a 280-as processzor be-, 
addig a 6510-es kikapcsol. A 280-as ekkor elindítja a 0-ás címtől elhelyezett programot, amely 
betölti a CP/M rendszert a lemezről. A CCP (Command Control Processor) és a BDOS (Basic 
Disk Operating System) az 1-es és 2-es sávon 22 szektort foglal le, 1-től B-ig, ill. 2-től 10-ig. 
Ezek tartalmát minden melegstart (CTRL-C) újra betölti, és minden betöítött szektor után 
megjelenik egy csillag a képernyőn. A BIOS-t, amely 5 szektort foglal el a 2-es sávon (11-től 
16-ig), csak a hidegstart tölti a tárba. Végül a tartalomjegyzék a 3-as sáv O-tól 7-ig terjedő 
szektorain található. 

A CP/M COPY segédprogramja (utility) csak kiválasztott szektorokat másol, pl. a "system 
track only! feltétel megadásakor az 1-es, 2-es szektorokat, ill. a 18-as és 8-as sávokat. 

Ha munka közben át akarunk kapcsolni egy másik lemezegységre, pl. az IEC Buson keresztül, 
az új egység sáv- és szektorfelosztását közölnünk kell a rendszerrel. A 4040-es egységnél 
semmilyen intézkedésre nincs szükség, hiszen ez teljesen kompatibilis a 1541-essel. A 8050-es 
és a 8250-es nagyobb tárkapacitását csak akkor tudjuk kihasználni, ha a változásról a BIOS-t 
értesítjük. Erre szolgál a Disk Parameter Block. A DPB-ben található a sávonkénti szektor- 
szám (8050-esnél 23), a lemezkapacitás stb. A 18-as sáv helyett ezeknél az egységeknél a 
38-as, ill. 39-es sávokat kell kihagyni a tartalomjegyzék számára. 

A megfelelő változtatásokat a COPY programmal végezhetjük el. 
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6.6 Együttműködés a 6510-es és a 280-as processzorok 
között 


Miközben a Commodore 64-esen a CP/M rendszerrel dolgozunk, a két mikroprocesszor 
megosztozik a feladatokon. Míg a 2780-as kiszolgálja a CP/M-et, a 6510-es végrehajt egy I/O 
műveletet, hiszen a Commodore 64-es operációs rendszere az input/output rutinokat rendel- 
kezésre bocsátja. A 280-as a következő utasításokat továbbítja a 6510-eshez: 


Utasításkód Művelet 


0 Egy szektor beolvasása lemezről 
1 Egy szektor felírása lemezre 
2 A billentyűzet lekérdezése 
3 Egy karakter kiírása képernyőre 
4 A lemezállapot (status) betöltése 
9 Egy karakter felírása lemezre 
6 A lemez formálása 
7-9 További bővítésre fenntartva (pl. soros I/0) 


A két processzor csak felváltva működhet. Az átkapcsolást a 6510-esen a $DEO0, a 280-ason 
a OCEOOH címek tartalma jelzi. Ha a 280-as a 6510-eshez egy I/O műveletet továbbít, átadja 
a megfelelő utasításkódot (a fenti táblázatnak megfelelően), a közös tárcímeken keresztül 
közli az utasítás elvégzéséhez szükséges paramétereket, majd a OCEOOH címre 1-et írva, 
önmagát kikapcsolja, ezáltal bekapcsolva a 6510-est. A 6510-es végrehajtja a műveletet, majd 
a $DEO0-s címre O-t írva, visszaadja a vezérlést a 280-asnak, amely a hívás pontjától folytatja 
tovább saját programja futtatását. 

Hardver okok miatt minden visszakapcsolás után egy NOP utasításnak kel! következnie. 


A paraméterek: 
6510 280 Jelentés 


$900 OF900H Utasításkód 

$901 0F901H Adatok az [/0-hoz 

$902 OF902H Szektorszám 

$903 OF903H Sávszám 

$904 0F904H Lemezkód 

$905 0F905H Billentyűszám a billentyűzet lekérdezésekor 


A $800-$8FEF, ill. 0F800H-OF8FFH közötti tárcímek I/O pufferként az aktuális (írt/olvasott) 
szektort tartalmazzák. 

A szektorok írása/olvasása közvetlen hozzáférésű Block-Write/Block-Read utasításokkal 
történik. 

A billentyűzet lekérdezése során a billentyűszám bekerül a megfelelő tárcímre. A billentyű- 
számnak megfelelő ASCII kódot a rendszer a BIOS-ból, a $D00-$DFF, ill. OFDOOH—-OFDFFH 
tárcímeken található táblázatból határozza meg. A $C00, ill. OFCOOH tárcímeken van annak 
a szövegnek a címe, amelyet a funkcióbillentyűkhöz rendeltünk, maguk a szövegek pedig a 
$C10, ill. $FC1OH címen kezdődnek. A hozzárendeléseket a CONFIG programmal tetszőlege- 
sen megváltoztathatjuk. 
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6.7 A CP/M BIOS listájának dokumentációja 


A következő oldalakon a Commodore 64-es CP/M BASIC I/O System (BIOS) listáját közöljük 
teljes részletességgel, magyarázatokkal ellátva. A BIOS négy részből áll. Az első rész tartal- 
mazza a CPM programot, amelyet a LOAD "CPM", 8 utasítással tölthetünk be a $800-tól 
$8FF-ig terjedő tárterületre. A CPM program betölti a BIOS 65-öt $A00-tól $DFF-ig. A BIOS 
65 a BIOS-nak a 6510-es processzor által végrehajtott része. A harmadik rész az ún. BOOT 
program, amely a CP/M hidegstartjánál a negyedik részt, a tulajdonképpeni 2780 — BIOS-t 
betölti. 


6.7.1 A BIOS 65 betöltőprogramja 


d REM skxátdt FS4. 364633 
5. 


rja) 

100. 5 SEBE SE JE TERE JE TETEJE E 3EE AE 36 3E3E3E9E9E IE At: A CP/M BEHIVOJA A C-454-EN 

110 : OBOF 78 SEI 

120 : OBIO 29 E7 FF JSR $FFE7 zAZ I/0 CSATORNAK LEZAÁRASA 

139 : 0813 OF LDA $$£OF ;15-OS LOGIKAI FILE SZAM 

149 : 0815 7. 08 LDX $4$Oo8 :8-AS EGYSEG SZAM 

1590 : 0817 AD BF LDY $$OF ;15-OS MASODLAGOS CIM 

169 : 08197 20 BA FF JSR $FFBA 5FILE PARAMETEREK BEALLITASA 

170 : OBIC A7 90 LDA 44300 ;NINCS FILE NEV 

180 : DBIE 22 BD FF JSR $FFBD : PARAMETEREK A FILE-NEVHEZ 

1909 : 0821 20 C2 FF JSR $FFCD s; HIBACSATORNA 

200 : OBZ4 A5 42 LDA 4H3$OZ :2-ES LOGIKAI FILE SZÁM 

210 : 0826 AZ 98 LDX 6H$OB 58-AS EGYSEG SZAM ajó 
220 : 0828 22 LDY 4402 32-ES MASODLAGOS CIM 

250 : OBZA 22 BA FF JSR $FFBA :5FILE-PARAMETEREK BEALLITASA 

2840 : OB2ZD A? 0i LDA $$01 3A FILE-NEV HOSSZA 1 

250 ti: BBZ2ZF AC BS LDX H$B5 

260 : 0831 / 98 LDY 4tíiOGB 3; MUTATÓ A "§"-RA 

270 : 0835 : BD FF JSR $FFBD : PARAMETEREK A FILE-NEVHEZ 

289 : 0836 209 COD FF JSR HFFCDB : KOZVETLEN ELERESU CSATORNA 

290 : 0839 A? 05 LDA 4405 

3009 : OBZR CD B6 08 STA £08R6 ; SZAMLALO 5 SZEKTOR BETOLTESEHEZ 
310 s: OBSE AZ OF LDX H£OF z15 

320 : 08409 22 CC? FF JSR $FFCFI : CHKOUT, KIIRAS A 15-OS CSATORNAN 
3350 : 08453 (.. 00 LDX 4300 

3409 : 0845 (wW 9B LDY $4$EUB : 12 KARAKTER 

350 : 0847 FD AA 08 LDA $£OBAA,X 3"Vi:2 0 1 $" 1-ES SAV 1-5 SZEKTORA 
360 : OB4A 29 D2 FF JSR $FFD2 5 KIIRAS 

370 : 0g4D ( INX 

389 : B8B4E FX DEY 

399 : 084F PO F6 BNE $0847 

49090 : 0851 ) CC FF JSR $FFCC ; CLRCH, KIVITEL ALAÁPERTELMEZES SZERINT 
410 :; 0854 (/ 02 LDX H4$O2 32 

429 : 0856 -V CS FF JSR $FFC6 : CHKIN, BEOLVASAS A 2-ES CSATORNAROL 
34350 : 058597 (: 00 LDX $4$00 

440 : OBSB . ) CF FF JSR $FFCF 31 KARAKTER BETOLTESE 

450 : 085E 99 0A STA $£0A00,X $:ES TAROLASA 

460 : DB61 £L3 INX 

470 : 0862 FI F7 BNE $085B jA 256. KARAKTER 

489 : 0864 .ű CC FF JSR $FFCC 3 CLRCH, BEOLVASAS ALAPERTELMEZES SZERINT 
499 : 0867 EF B3 08 INC $08BB3 ; SZEKTORSZAM NOVELESE 

599 : 936A [/ 64 08 INC $4860 :A TARCIM NOVELESE EGY LAPPAL 

5190 : O86D B6ó 08 DEC $08B6 55 SZEKTOR BEOLVASVA 

520 : 9870 re CC BNE $083E : NEM, TOVABBI OLVASAS 

5Z0 : 0872 09 LDX 4400 j 

549 : 0874 CC. 99 GE LDA $0E99,X :A 289-AS BOOT FROGRAMJA 
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559 : 9877 9D 00 10 STA $1000,X ;MASOLAS A OOZOH 782-AS CIM SZERINT 8; 
560 : O87A E8 INX (jesz tos sa TES ÉT ON RÁN tu Én SX 
570 : 087B DO F7 BNE. $0874 Fi 

599 : 087D 29 E7 FF JSR $FFE7 SCLALL, I/O CSATORNAK LEZARASA 

599 : OBB0 A? 36 LDA H$36 3 ; 18 

600.: 0882 85 01 STA $01 BASIC ROM KIKAPCSOLASA 

610 : 0884 A? 09 LDA H$OI :CHR$(9) 

620 : 0886 29 D2 FF JSR $FFD2 :AZ ATKAPCSOLAS ENGEDELYEZETT ! 

630 : 0889 AJ VE LDA H$GE 3CHR$(14) 

640 : OBBB 20 D2 FF JSR $FFD2 ; SZOVEG-MOD BEALLITASA 

650 : OBBE A97 BB LDA 1$08 5CHR$ (B) 

660 : OBI9B 29 D2 FF JSR $FFD2 ;AZ ATKAPCSOLAS LETILTVA ! 

670 : 0893 A? 93 LDA H$93 :CHR$(147) 

680 : 0895 20 D2 FF JSR $FFD2 : KEPERNYOTORLES 

690 : 0898 A? OD LDA H$EOD ;CHR$(13) 

700 : OBJA 20 D2 FF JSR $FFD2 5UJ SOR 

710 : O89D A? FF LDA HÉFF 

729 : O89F BD 00 99 STA $0790 s UTASITASREGI SZTER 

730 : OB8A2 A9 28 LDA 4E2ZB ; BILLENTYUSZAM 

749 : OBA4 BD 05 99 STA $09705 z TAROLASA 

759 : OBA7 4C 00 BA JMP $0A00 ; VISSZA A 7284-6510 FOCIKLUSHOZ ! 

7609 : OBAA 55 31 3A 32 20 39 29 31 29 31 OD "UI:2 0 1 1" ;5BLOCK-READ UTASITAS 
770 : ú8B5 23 ; "tt"  FILE-NEV KOZVETLEN ELERESEHEZ 
KESZ . 


6.7.2 A BIOS 65 


B REM extEx FPOZ. 3633 
d. § 


va ig 


190 50 SEBET AE 9E E 9E E EE JEE ÁE AE EHE HE EE NEE E 3 FOCIKLUS 7280-65S1I2 


119 : gADYO A? 00 LDA $H$OG 

120 : 0A02 BD 09 DE STA $DEX0 :5A 6510 KIKAPCSOLASA 

139 : gAG5 EA NOF 

149 : 0A06 29 AC GA ISR 40a9C :A 790-AS RUTIN 

150 : 0AY9 4C 09 0A JMF $£0A00 S VISSZA A CIKLUSHOZ 

160 : 

170 1: 0 BERENEREBEREBETE TEJE BE TE BE IE 39 996 E E 36 363E 963 36943 RUTINOK SZELEKTALOASA 

1809 : ADC AD 09 99 LDA 199908 ; UTASITASKOD 

190 : OAOF C? FF CMP HÍiFF jA ZA9 NEM AKTIV 

299 : gAli1 D9 03 BNE $9A16 

210 : OAR13 6C FC FF JMP ($FFFC) 5A CS4 RESET-JE 

220 : 0A16 C9 0A CMP H$OR : AZ UTASITASKOD NAGYOBB V. EGYENLŐ MINT 10 
250 : OA18 909 01 BCC $9A1B : NEM 

240 : ORIA 60 RTS 5 KESZ 

250 : OAI1B D8 CLD 

260 : GAIC 18 CLC 

270 : OAI1D 6D 00 09 ADC $0900 S UTASIÍTASKOD x 2 

280 : gAZO 69 28 ADC HíZ2ZB :PLUSZ $28 

290 : gAZ22 BD 26 A STA $9A26 : INDIREKT CIMZESMOD 

300 : gA25 6C 28 BA JMFP ($0AZ28) 5AZ UTASITAS VEGREHAJTASA 
310 : 

Z2O : KREXRERKAKREREREEKEKEERERKEERENKEHAZA 19 MŰVELET UGRASI TABLAZATA 
330 : 0AZ2ZB SF 9A 9. UTASIÍTAS ; SZEKTOR OLVASASA 

349 : vaZA 3F 0A 1. UTASOTAS : SZEKTOR IRASA 

359 : VAZC 86 0A 2. UTASITAS ;KLAVIATURA LEKERDEZESE 

360 : BAZE 8F 0A 3. UTASITAS :KIIRAS KEFERNYORE 

5370 : 0ASO 99 ga 4. UTASIÍTAS ;NYOMTATO STATUSZ BEOLVASÁSA 
389 : 0ASZ 9F 9A 5. UTASITAS :KIIRAS NYOMTATORA 

399 : 9A34 49 OB 6. UTASITAS ;LEMEZFORMALAS 

400 : 0AZ6 00 0E 7. UTASITAS 5AUX1, UGRAS A $E00-RA 

410 : VAZB 00 OF 8. UTASITAS ;AUX2, UGRAS A $FOW—-RA 

4aA209 : 0AZzA 3C AA 9. UTASITAS ; INDIREKT, UGRAS A (£$9956)-RA 
AZO : 

490 : EREREEHEREEKEEEEKEKEEEEKEEEEKEHIA 9-ES UTASITAS, INDIREKT 
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459 : VASC 6C 06 09 JMF ($0906) :; INDIREKT UGRAS A ($£9796)-RA 
460 


470 REXNNENEKEREREKREREKEREKEKEEEE EE: A 0-AS UTASITAS, READ-SZEKTOR 

480 : VAZF A? 31 LDA H$31 3" 1". "01" UTASITAS A LEMEZHEZ 

490 : 0A41 20 F2 0A JSR $OAF2 : BLOCK-REARD 

500 : 044 29 DE OB JSR $OBDE : LEOLVASAS A KÖZVETLEN ELERESU CSATORNAROL 
510 : 0A47 A2 00 LDX 4£$00 

520 : DA49 29 CF FF JSR £FFCF 5EGY KARAKTER BEOLVASÁSA, 

330 : 9A4C 9D 09 98 STA $10800,X : TAROLASA A PUFFERBEN 

534090 : ORAF EB INX 

5580 : OASB DO F7 ENE £0A49 :A 256.KARAKTER 

560 : ASZ FX 60 BEG $00AR4 ; CLRCH 

570 : 0A54 290 77 BE JSR $0597 :A LEMEZ INICIALIZALASA 

5809 : 

S90 : KIEKRERERKKEEEKEKEEKEEKREKE EE KKA EEJAZ 1—-ES UTASIÍTAS, WRITE-SZEKTOR 

600 : 0A57 29 F4 OB JSR £OBF4 ;KIIRAS A LEMEZ PFARANCSCSATORNAJARA 
610 : OASA AD OB LDY 4£$08 38 

6209 : OASC BD 89 OB LDA $90B889,X :SMUTATO BEALLITASA A SZEKTÜRKEZDETRE, ES 
630 : 0A5F 29 D2 FF JSR $FFDZ2 :KIIRASA 

640 : 0A62 EB INX 

650 : 0ASZ 38 DEY 

660 : 0AG4 DO F6 BNE $£0A5C 

670 : OA664 29 CC FF JSR $FFCC 3 CLRCH 

689 : 9469 29 CE BB JSR $ORBCE A HIBACSATORNA LEOLVASÁSA 

6990 : gAGC DB E6 BNE $£0A54 ;HIBA, INICIALIZALAS, ISMETLES 

700 : GAGE 29 CC FF JSR $FFCC s: CLRCH 

710 : 0A71 29 E? OR JSR $0BE7 :KIVITEL A 2-ES CSATORNARA 

720 : 0A74 A2 00 LDX $sU0 

730 : 0A74 BD 09 08 LDA 4£9800,X : EGY KARAKTER A FUFFERBOL 

749 : 9479 20 D2 FF JSR $FFDZ A LEMEZHEZ 

750 : 0A7C EB INX 

760 : BAZD DO F7 BNE 4$0A76 sa 256. KARAKTER 

770 : OA7F 28 CC FF JSR $FFCC : CLRCH 

780 : 0AB2 A? 32 LDA $H$32 3 "2" ,"U2" BLOCK WRITE 

799 : 0AB4 DA 6C ENE $0AFZ2Z : BLOCK WRITE UTASITAS A LEMEZHEZ 

800 : 

BIR 2 ERJEN RÉT RE TETEJE TERE E E 3E IE AE 196966: A 2—ES UTASITAS, KLAVIATURA LEKERDEZESE 
829 : 0AB6 29 9F FF JSR $FF9F ;A KLAVIATURA LEKERDEZESE 

839 : 0A89 A5 C5 LDA $C5 :AZ OLVASOTT KARAKTER MATRIX SZAMANAK 
849 : ABB SD 95 097 STA $£9995 : TOVABITASA A Z89-HOZ 

859 : OABE 60 RTS 

860 : 

BZO 2 KARAKTERE NEEE EE E EE EE EE XX: A 3-AS UTASITAS, KIIRAS KEPERNYORE 
889 : BABF A? 09 LDA t$09 

899 : 0A91 85 D4 STA $D4 :A FELSOVESSZO TORLESE 

99090 : 0A93 AD 91 09 LDA $£0991 : EGY KARAKTER BEOLVASASA, 

710 : 0A94 4C D2 FF JMPF $FFD2 :ES KIIRASA A KEPERNYORE 

929 : 

I3O 2 AERENENEE JEE EE IE TEJE JEE TEJE JEE E EE EXE: A 4-ES UTASITAS, NYOMTATO STATUSZ BETOLTESE 
940 : 0A99 A 99 LDA $$00 

950 : DAJB BD 01 997 STA $9901 :A STATUSZ 0 

960 : OATE 60 RTS 

970 : 

980 2 FAKE EREJE E AE JE E TEJE TE TE EE EE EE: AZ 5-OS UTASIÍTAS, KIVITEL NYOMTATORA 
999 : VAJF AD 01 99 LDA £9901 :A KIIRANDO KARAKTER 

1090 : 9ARAZ CI VA CMF HEDA : SOREMELES 

1019 : 9AA4 DO 01 BENE £DAA7 : NEM 

1020 : OARRA6G 60 RTS : IGEN, UJ SOR 

1039 : 0AAR7 AZ 04 LDX 4:04 :A LOGIKAI FILE-SZAM 4 

1040 : ORAT 29 CI FF JSR $FFCI : CKOUT, KIIRAS A NYOMTATORA 

10959 : ORAC BG 097 BCS £9AB7 : HIBA 

1060 : OARE AD 01 09 LDA 419901 :A KIIRANDO KARAKTER 

1970 : OAB1 20 D2 FF JSR $FFD2 : ELKULDESE A NYOMTATOHOZ 

10980 : DAB4 4C CC FF JMP $FFCC s: CLRCH, A KIIRAS ALAPERTELMEZES SZERINT 
109908 : BAB7 C9 03 CMP HEOZ ;FILE NOT OPEN 

11090 : 0AB9 DO 05 ENE $0ACO : NEM, MAS HIBR 

1119 : OABB 29 Cé6 BA JSR £$£0AC6G :A NYOMTATO NYITASA 
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1129 : OABE 990 DF BCC $0A9F :NEM VOLT HIBA, KARAKTER KIIRAS 
1130 : AACO A? FF LDA HEFF :A HIBA KODJAT A 

1140 : OACZ2 BD 91 07 STA $£0901 5A 7Z90-NAK ATADNI 

1159 : 0ACS 60 RTS 

1160 : OAC6 AD 07 LDY 4£07 5A 7-ES MASODLAGOS CIM A VC. NYOMTATOHOZ 
1170 : OACB 29 DE ZA JSR £DADE :A NYOMTATO LEZARASA, UJ ADATHALMAZ NYITAS 
1189 : OACB AD FF 0C LDA $0CFF : 1[/0-TIPUS (NYOMTATO TIPUS) 

1190 : OACE 29 02 AND H$s02 

1200 ; VADO FO F5 BEOG £9AC5 : 1515-0S NYOMTATO 

12109 : VAD2 AZ 04 LDX t$04 LOGIKAI FILE-SZAM 

1220 : OAD4 29 C? FF JSR $FFCI 5 CHKOUT, KIIRAS A NYOMTATORA 

1259 : 0OAD7 A? OD LDA HOD :KOCSI VISSZA A 

1240 : OAD9 29 D2 FF JSR $FFDZ2 :; NYOMTATON 

1250 : BADC Ag 08 LDY 4$00 39-AS MASODLAGOS CIM 

1260 : DADE A? 04 LDA 6H$O4 5A LOGIKAI FILE-SZAM 4 

1270 : 9AEG 29 C3 FF JSR $FFC3 s CLOSE 

1289 : OREZ A? 04 LDA 4$O4 jA LOGIKAI FILE-SZAM 4 

1290 : OARES5 AZ 04 LDX $$04 3A KESZULEKSZAM 4 

1500 : OARE7 20 BA FF JSR $FFBA 5A PARAMETER BEALLITASA 

15310 : OAREA A? 09 LDA HáigO 3NINCS FILE-NEV 

1520 : OREC 29 BD FF JSR $FFBD 3; PARAMETER A FILE-NEVHEZ 

153539 : BAEF 4C CO FF JMP $FFCD : OPEN 

1540 : 

1350. 2 ANEEJE JE TETEJE RE 9E EE JEE HE JEE AE E 3E JE 9636 36-34-34: A BLOCK-READ/WRITE UTASITAS KULDESE 
1360 : OAF2 BD 63 GB STA $0B63 st HELY "1" VAGY "2"-NEK 

1370 : JAF5 AD 04 09 LDA $£0904 s; LEMEZSZAM 

15809 : 0AF3 29 89 OB JSR $£08R89 jA KOD ATVALTASA ASCII-RA 

17909 : VAFE 8D 67 OB STA $0B67 :5ES TAROLASA 

1499 : ORFE AD 03 09 LDA $09903 :A SAVSZAM 

1410 : DBO1 20 89 OB JSR $0589 ; ATVALTASA ASCII-RA, 

1429 : OBO4 SE 69 OR STX $£08B697 3ES TAROLASA 

1430 : 08B07 8D 6A OB STA $OB6óA 

14409 : OBOA AD 02 09 LDA $0902 1A SZEKTORSZAM 

1490 : OBOD 29 89 BB JSR $9B89 : ATVALTASA ASCII-RA, 

1460 : OB10 BE 6C DB STX $0B6C 3ES TAROLASA 

1470 : OB1Z BD 60 BB STA £FOBÓD 

1480 : OB16 A? 02 LDA $HsDZ2 32.. KISERLET 

1490 : OBIB8 SD 01 09 STA 409991 

1509 : OBIB 209 F4 OB JSR $£OBF4 : CHKOUT, KIIRASA 15-OS CSATORNARA 
1510 : OBIE AD OD LDY $£DD 513 KARAKTER 

1529 : OB2O FRD 62 OB LDA $OB62,X $"Uis 2 0 TT:-B8" ILLETVE. ""U2i 2. TI. 99". A 
1539 : OB23 20 D2 FF JSR $FFDZ2Z s LEMEZHEZ 

1540 : OB26 EB INX 

1558 : 0827 88 DEY 

1569 : OR28 DO F6 BNE £90B829 

1579 : OBZA 209 CC FF JSR $FFCC 3; CLRCH 

1580 : OBZD 209 CE OB JSR £$ORCE :A HIBACSATORNA OLVASÁSA 

1599 : OBZO FO BR BEG $£OB3D : OK 

1600 : OB32 CE 01 09 DEC £09901 :KESZ A MASODIK KISERLET 

1610 : OB35 FO BE BEGC $0845 : IGEN : 

1620 : 0B37 20 97 OB JSR $£08B97 :LEMEZ INICIALIZALASA 

1639 : OBZA 4C 1B OR JMFP £$OBIB 3; ISMETELT KISERLET 

16490 : OBZD A? 09 LDA Hí$OOD 3 OK" KAPCSOLO 

1650 : OB3F SD 91 09 STA 4O9OI1 : TAROLASA 

1660 : OR42 3€ CC FF JMF $£FFCC : CLRCH, KIIRAS ISMET ALAPERTELMEZES SZERINT 
1679 : OB45 A? FF LDA tHáFF : HIBA-KAPCSOLO 

16890 : 0B4A7 DO F6 BENE £OEB3F : TOVABB MINT FENT 

16909 : 

1700 : EENREREKERENREKEEREEEEEEEEERIEEEIA 6-OS UTASÍTAS, LEMEZ  FORMALASA 
1710 : 0B49 29 F4 OR JSR $OBF4 OPEN 15,8,15 ES CHKOUT 

1720 : OB4C Ap 10 LDY 4319 316 KARAKTER 

17570 : OB4E BD 79 OB LDA $9870,X ; "NO:CF/M DISK,65" 

1740 : OBS1 20 D2 FF JSR. $FFD2 jA LEMEZRE FELIRNI 

1750 : 0854 E8 INX 

1760 : OB5S5 88 DEY 

1778 : O0B56 DOB Fő BNE £9B4E 

1780 : 08BS8 260-"CE FF aSR SFFCC : CLRCH 
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1799 : OBSB 29 CE OB JSR $OBCE 5A KIMENETI CSATORNA OLVASASA 

1899 : OBSE DO ES PNE $0E£45 :A HIBAKAPCSOLO BEALLITASA 

1819 : 9869 FO DB BEG £9BZD AZ OK KAPCSOLÓ BEALLITASA 

1820 : 

1B8BZDO 2: 0 FEBERREBERERE ESETE EBEÉ AE 9 TE 9 E 639664 3633: SZOVEG LEMEZKEZELESHEZ 

1849 : OBóS2 55 31 3A 32 29 530 20 54 54 290 53 53 OD "Uis2 9 TT §9" 

1850 : OBOF 25 $"$" KOZVETLEN ELERESU FILE 

1860 : OB79 4E 30 JA §3 50 2F 4D 29 44 49 53 4B 2€ 36 35 OD "NO:CP/M DISK,65" 
1870 : OBBO 42 2D 50 209 32 29 30 OD "B: 2 0 

1889 : OBBB 49 : lá Zági 

18909 : 

190990. 2 MEJEBEBEEJE TE EE E 9896 AE TE TE TE TE E TE E TEJE E E JE JE JEE: AZ AKKUBAN LEVO HEXASZAM ATV. ASCII-RA 
19718 : OBB? DB CLD öl ; s 8 

1920 : OBBA AZ 30" "LDX 4$$s30 ; pa" 

19725 : OBB8C 38 0A SEC 

1959 : OBBD E? 0A SEC 4$gA : 102 KIVONASA 

1940 : OBOEF 99 03 BCC $£9B94 

19750 : 0B91 ES INX AZ X TARTALMAZZA A TIZEDESÉKET 

1960 : 0B92 BB F? BCS $UOBBD 

1970 : 0B94 69 3A ADC $£E3A 5AZ AKKU TARTALMAZZA A SZAMJEGYEKET 
1980 : 9B96 69 RTS 

1998 : 

ZORD 2 BEREREBEBETE JE TE 9E JE TETEJE TEJE AE 336996 96-96 366035 INICIALIZALAS ES A KOZVETLEN ELERESU FILE 
2005 : ;NYITASA 

2010 : 0B97 AR? OF LDA HIOF 5A LOGIKAI FILE-SZAM 

2920 : 0B99 29 CZ FF JSR $FFCZ $CLOSE 15 

2030 : OB9C A? OF LDA HÍ$OF 5A LOGIKAI FILE-SZAM 15 

2040 : OB9JE AZ OB LDX H$sOB 3A KESZULEKSZAM 8 

2050 : OBAR AD OF LDY H$OF : 15-0S MASODLAGOS CIM 

2069 : OBAZ 29 BA FF JSR $FFBA 3A FILE-PARAMETER BEALLITASA 

2070 : OBAS A? 01 LDA $$OI jA FILE NEV HOSSZA 1 

2080 : OBA7 AZ 88 LDX $H$3B 

29090 : OBAT AN OB LDY $$OB S MUTATO AZ "I"-RE 

21090 : OBAB 28 BD FF JSR $FFBD 3A FILF-NEV PARAMETEREI 

2110 : OBAE 29 CB FF JSR $FFCD : OPENI1S,8, 15,"1" 

2120 : OBB1 A97 02 LDA 4$$OZ jA LOGIKAI FILE-SZAM 2 

2150 : OBB3 29 C3 FF JSR $FFC3 ; CLOSE 2 

2149 : OBB6 A? LDA H$O2 jA LOGIKAI FILE-SZAM 2 

2150 : OBB8 AZ 08 LDX t£$08 3A KESZULEKSZAM 8 

2160 : OBBA AO 02 LDY $£$02 jA 8-AS MASODLAGOS CIM 

21709 : OBBC 29 BA FF JSR $FFBA 3A FILE-PARAMETER BEALLITASA 

2180 : OBBF A? 01 LDA $H$XI :A FILE-NEV HOSSZA 1 

2190 : OBC1i AZ 6F LDX $$óF 

2200 : OBC3 Ag OB LDY $H$OB ;MUTATO A "4§"-RA 

2210 : OBCS 20 BD FF JSR $FFBD 5A FILE-NEV PARAMETEREINEK A BEALLITASA 
2229 : OBCS8 4C CG FF JMP $FFCD ; OPEN 2,8,2,"4" 

2230 : OBCB 29 97 BB JSR $0B977 :A MEGHAJTO INICIALIZALASA 

2240 : 

D2SO 2 ENRKNRRNIE IEEE TERE E EE 336696 463636 3636-46-4-: A HIBACSATORNA LEOLVASASA 

22609 : OBCE AZ OF LDX t$0F zA LOGIKAI FILE-SZAM 15 

2270 : OBDO 29 CS FF JSR $FFCG ; CHKIN 

2289 : OBD3 Bü F6 BCS $OBCB ;5HIBA, MAJD INICIALIZALAS 

2290 : OBDS 29 CF FF JSR $FFCF 5 EGY KARAKTER A HIBACSATORNAROL 

2500 : OBDB8 C? 50 CMP t$30 ; EGYENLO NULLAVAL 

2310 : OBDA 460 RTS 

2320 : OBDB 20 Bi OB JSR $0BBi 3A KÖZVETLEN ELERESU CSATORNA ISMETELT 
2325 s: s; NYITASA 

2330 : 

Z3A0 2: 0 KRMETETETETETE TE ENE BE JE EE E JE IEEE 3 4E3E-3E3636 36-36-34. BEOLVASASHOZ A KÖZVETLEN ELERESU CSATORNA 
2545 : ; BEALLITASA 

2350 : OBDE AZ 02 LDX $£$02 jA LOGIKAI FILE-SZAM 2 

2360 : OBEg 29 CS FF JSR $FFCS 3 CHKIN 

2370 : OBE3 BO F6 BCS $£OBDB 5HIBA, NYITAS UJRA 

2389 : OBES 69 RTS 

2390 : OBEó 28 Bi OB JSR $0BBI :3A KOZVETLEN ELERESÚ CSATORNA ISMETELT 
o [o Hl) s; MEGNYITASA 

2400 : 


98 


ZA1O :  ATSÁNE NE EEEN HETE E 9 3E 96326 36-36 6-5 A KÖZVETLEN ELERESU CSATORNA. BEALLITASA 
2415 : 3 IRASRA 

2420 : OBE? AZ 02 LDX 4$$02 jA LOGIKAI FILE-SZAM 2 

2430 : OBEB 29 C9? FF JSR $FFCI 3; CHKOUT 

2440 : OBEE B F6 BCS $0BE6 5 HIBA, A CSATORNA ISMETELT MEGNYITASA 
2450 : OBFO 60 RTS 

2460 : OBF1 20 97 OR JSR $0B97 3A MEGHAJTO INICIALIZALASA 

2470 : 

DABBO z  NAAERE TREE IEEE HETE TE TERE JE 96-36-46 96-46-36 44-4. 5 A PARANCSCSATORNA .BEALLILTASA KIIRASRA 
24908 : OBF4 AZ OF LDX H$OF 5A LOGIKAI FILE-SZAM 15 

2500 : OBF6ó 20 C9 FF JSR $FFC? ; CHKOUT 

25190 : OBF9 BO F6 BECS $0BF1 5HIBA, INICIALIZALAS 

2520 : OBFB AZ 00 LDX 4300 ;A MUTATO BEALLITASA 9-RA 

25309 : OBFD 60 RTS 


6 REM $ís$ P58. 5338 
; ll) 


egi 5 
190 : VIRGIBUBASAASIATALBZBBBBBRBBARIA FUNKCIOBILLENTYUK SZOVEGENEK 2809-AS CIME 
119 ! 9COO 10 FC 28 FC 38 FC 48 FC 

128 : OCSGO 59 FC 60 FC 78 FC 88 FC 

19295 1 

139 t NOGEKARSZEADABALLAAAZZZRARBBBZIA FUNKCIOBILLENTYUK LEFOGLALASA 
149 t OCIO 44 489 52 BD 009 09 00 06 89 09 08 08 00 00 09 00 DIR 

159 : OC2B 44 49 52 29 42 3 OD 08 00 08 00 08 09 20 09 00 DIR B: 
180 : 0CIO 53 54 41 54 28 2A RE 2A 00 99 09 09 989 09 00 00 STAT t.i 
170 : OC4JO 53 54 41 54 20 42 38 2éR 2E 2A SD 00 00 08 08 08 STAT Bte.g 
180 : 9CS5O 43 4F 509 00 90 08 00 09 09 09 08 00 09 69 09 00 COPY 

1909 : OC6GO 43 4F 4E 46 49 47 OD 00 08 00 88 80 00 08 09 083 CONFIG 
200 !: 0C7O 44 44 54 G0 09 99 99 00 99 00 09 09 09 00 00 00 DDT 

219 : OCBO 44 44 54 09 98 09 98 00 69 90 00 09 09 99 00 03 DDT 

229 t 

230 § ARILKNLZKERNT TEAT B KKK AA 9 4 kk kh 43 BILLENTYUZET-KODOK TABLAZATA 
es0g : COMMODORE - NORMAL SHIFT 

ese zt BILLENTYU cz CTRL 

280 : 0DO0 08 88 98 18 DEL BS CAN 

270 ! 0004 OD OD 00 8D CR CR 

2908 !: OD88 1C 1C ID í1D KURZOR JOBBRA FS 98 

290 : ODOC 86 86 87 87 FZ, Fe F? F8 

300 : ODIO 88 80 81 81 Fi1, F2 Fi Fe 

316 :t OD14 82 82 983 83 F3., F4 F3 F4 

329 ! 0DI18B 84 84 85 85 FS, F6 FS Fe 

330 : ODIC IE IE IF IF KURZOR LE RS us 

3409 t 8020 33 33 23 33 3n 9-3 4 3 

350 s: 0D284 77 57 57 17 u W W 4 $4 

360 ! OD28 81 41 41 01 A A 9 TNS 

370 s: 002C 34 34 24 34 4$ ös e ék 

3809 : 0ODJO 7A 58 5A 18 z da teák né te 

390 : 0DJ4 73 53 53 13 s 9.8 8. 18 

400 : OD39 65 45 45 05 € "al JESBN smdíék : 

410 : BDIC 09 90 00 00 SHIFT NULLA 

429 : 0040 35 35 25 35 S 4 ll - VEZE GR 

430 i! 0D44 72 52 52 182 R R.K ER 

4409 ! OD48 64 44 44 04 D B: Bs aa B 

450 : OD4AC 36 36 26 36 6 § 8.6 §€ 68 

460 ! OD54 686 46 36 08 F FE FF 

470 : 0D58 74 54 54 14 ka b. SE: Rt; előt a vé 

488 !: ODSC 78 58 58 18 x 98. ab. át TR 

490 ! O060 37 37 27 37 T galei E AT ő r ? 

500 : 0064 79 59 59 19 VÉ tt Zé akdálb ÉSE a : 

510 : 8068 67 47 47 07 G 8 € 6 18 

520 : DEC 38 38 28 7B a c ús § A ké 

530 : 0D70 62 42 42 02 B B B B 18 

540 : OD74 68 48 48 88 H H-H. HK. 14 

550 tt OD78 75 55 55 145 u U:.U-U 1 

560 : 0D7C 76 56 56 18 v a. ANG JESt. JEG 

570 : opeg 39 39 23 7D 9) b. jön. SEBE. ElB6 ; 


co 
(0 


580 
590 
e00 
610 
620 
630 
640 
650 
680 
670 
6€8e 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
ese 
840 
eso 
860 
870 
880 


09 08 08 18 09 09 88 05 09 00 00 05 00 00 00 09 09 09 50 69 06 05 00 9 00 6. 


0084 
eDpes 
eoec 
0090 
eD94 
0098 
eD9c 
oDAD 
80004 
eDA8 
ODAC 
ODBO 
ODB4 
0DB8 
ODBC 
eDco 
0DC4 
eDCc8 
eDCcCc 
eDDO 
0oDD4 
00DD8 
0DDC 
00E0 
0ODE4 
0DE8B 
ODEC 
eoDFO 
ODF4 
0DF8B 
0DFC 


69 
ea 
30 
60 
6B 
eF 
86E 
eB 
70 
6c 
eD 
2E 
3A 
40 
ec 
sc 
en 
38B 
1B 
00 
30 
SE 
eF 
31 
5F 
00 
32 
20 
00 
7 A 
03 


48 
aA 
38 
4D 
48 
4F 
4E 
2B 
50 
4c 
20 
2E 
3A 
40 
ec 
sc 
en 
3B 
1B 
00 
3D 
5E 
eF 
31 
SF 
80 
32 
20 
900 
51 
03 


49 
4A 
30 
4D 
4B 
aF 
4E 
eB 
50 
4c 
2D 
3E 
5B 
40 
3c 
sc 
en 
5D 
1B 
00 
30 
SE 
3F 
21 
SF 
00 
ee 
28 
80 
51 
03 


09 
9A 
09 
00 
08 
oF 
0E 
eB 
10 
ec 
ep 
70 
78 
ee 
7B 
7e 
en 
7D 
Vagi 
ee 
30 
7E 
5c 
31 
S5F 
00 
32 
20 
00 
tk 
03 


6.7.3 A 280 BOOT-rutin 


34090 


091c 
F903 
F992 
F9794 
FCFF 
4A53 
9909 
F990o 
99091 
CEgR 
F781 
F8oa 
4A0B 


"1 


1 1 EGB ! AGG L EGG VR 2 ERGA (ERR ( VR ! VERA! KRRRN ! KERN ! ERRRN ! ARAN 1 


0 REM ettx PS7. 


JETTE AE 


1 FVSZOZXZZYTZBÓOBOLErsa 


F álcát gató 


BALRA NYIL 


! 


CTRL 
e" 
SZOKOZ 


COMMODORE 


e 


STOP 


TOT SN LN GTV ENTSNT STO TEST] 


NSECTS 
TRACK 
SECTOR 
DISKNO 
IOTYPE 
KYBDMD 
VICRD 
CMD 
OFF 
MODESW 
DATA 
BUFFER 
BOOT 


; ögébk kar ő Egek Xi 
vad eds t3 
9 0 0 NULLA 
MM M TM 
1. lel Sti , sss a, § 
2: NB " lat " ZER c 
HESS TNI 
. ha t hé 
: zzllts ööö dl! sé 
St 4. tL 
. . SZ d 
1 : . szánt d 
e eee 
7 a Ab. zt Tv 
s öö ÉT A 
§.-§. B B 
LN? RE telt : 
ESC DEL 
NULLA 

z zo moz 
AAD. 7 év SBS A 
s Ét 
í 1 , ; 
NULLA 

Kg e. 
URESKARAK TER 
NULLA 

G G G 1G 
pLodllk A vSlk ( rIlk ( e 


780-AS BOOT-RUTIN A C64-EN 


COPYRIGHT 


(C) 1982 


COMMODORE INTERNATIONAL 


EZT A RUTINT A C64-ES CP/M LEMEZ 1-ES SAV 5-OS 
SZEKTORABOÓL A BIOS65S EGY RUTINJA TOLTI BE. 


A BETOLTESI CIM BO9O90OHK (2788) 
AMIKOR A Z80-AS BEKAPCSOL EZ A RUTIN BETOLTI A 
BIOS-T, A CCP-T A RAM-BA, MAJD RAUGRIK. 


EGU 
EGU 
EDU 
EGU 
EGU 
EGU 
EOU 
EGU 
EGU 
EGU 
ECU 
EGU 
EGU 
EGU 
EGU 
EGgU 


3400H 
O900H 
9100H 
1CH 
0FI03H 
0F902ZH 
0F904H 
OFCFFH 


:A 20K-S CP/M KEZDOCIME 
: BOOTA . HEX 

: BOOT 1. HEX 

;A BETOLTENDO SZEKTOROK SZAMA 
;A SAVSZAM REGISZTERE 

;A SZEKTORSZAM REGISZTERE 

;A LEMEZSZAM REGISZTERE 

:19 KONFIGURACIO A BIO$65-BEN 


CCPt1633H ; NAGYBETUS MOD KAPCSOLO 


o 
OF990H 
01H 
DCEGOH 
DFIR1H 
0FSY0H 


5A SZEKTOR OLVASASANAK UTASITASKODJA 
SUTASÍTAS REGISZTER 

jA 780-AS KIKAPCSOLASA 

:A Z780-AS KIKAPCSOLASANAK CIME 

;AZ ADATATVITELI REGISZTER 

3 LEMEZPUFFER 


CCPH1GOOH ;A BIOS BOOT CIME 


100 


575 : 


380 
390 
409 
410 
420 
430 
449 
450 
460 
470 
480 
490 
500 
510 
520 
5530 
540 
53399 
560 
570 
575 
589 
590 
600 
610 
620 
650 
640 
650 
660 
670 
680 
499 
700 
719 
720 
759 
740 
750 
760 
770 
780 
790 
909 
819 
820 
830 
849 

30 
360 
870 
eg9 
9390 
7909 
910 
9209 
950 
935 
940 
945 
959 
955 
760 
965 
7708 
Sza 
789 


CTL TLC B CSK 7 B TET 7 NK SSE T HNK TEK CSK COST TEK TET TK TNS TESTI 


TE S KTK LL S OKT SETS STT 


CON CN " HR TEN TIL DENT NN CSK GY ENC CT TR T HNN TNC CSE ST TT HST HET SS TT STT S TI 


9999 


0909 
9990 
09004 
0996 
00997 
9908 
090D 
99090E 
0911 
0912 
0015 
9917 
0919 
g9g1c 
091F 
9929 
0023 
0924 


0927 
92929 
902e 
092E 
09051 
09553 
0956 


09057 
99053A 
9038 
[510 
0903D 
a9s5E 


0941 
09042 
0043 


9044 
0946 
0049 
a94A 
094Cc 


994D 
904F 


09952 
09055 
00357 
o95A 
905c 


v0sF 


00 
110954 
3E00 
3204F9? 
2601 
2E06 
7C 
3203F9 
7D 
3202F9 
3Ew0 
3900F-?7 
5Ew1 
32Z90CE 
0 
ZADIFI 
B7 
cC2gDvRa 


3EZ2ZA 
3291F9 
3E03 
3200F9 
3E01 
3200CE 
09 


0100F3g 
va 
12 
ac 
1C 
C23SARO 


14 
26 
7D 


FE11i 
DA4COB 
24 
2E00 
7€c 


FEg3 
C2uDAB 


3RFFFC 
E620 
C2SFO0 
3E01 
32334A 


CSO04A 


NTI 


san 


FTNG LEÓT] 


KT SOTI 


549 ták tat 


FTNG LT 


TET 


9. 


i kek] 


ORG — 0099H A Z890 RESET CIM 


NOP jA HARDVERHEZ KELL ! 
LXI D,CCP jAZ ELSO BETOLTESI CIM 


STA DISKNO ;A BETÜOLTES AZ A EGYSEGBROŐL 
MVI H,I ;START AZ 1-ES SAV 6-OS SZEKTORTOL 


STA SECTOR 
MVI A,VICRD ;A SZEKTOR—-OLVASAS UTASÍTAS 
STA CMD 


MVI A,OFF 

STA MODESW ;A ZB89 BEKAPCSOLÁSA, 
NOP 

LDA DATA :AZ ATVITEL RENDBEN 
ORA A 


JNZ ULOADI ; MEGEGYSZER, HA NEM 


EGY "x" KIIRASA SZEKTORONKENT 


MVI A, 
STA DATA 

MVI A,Z :KIIRAS A KEPERNYORE 
STA CMD 

MVI  A,OFF 

STA  MODESW GATVITEL A 6519-ESHEZ 
NOP 


AZ OLYASOTT SZEKTOR ATVITELE A TARBA 


LXI B,BUFFER ;A BC LEMEZPUFFER MUTATUJA 


LDAX B :EGY BYTE A PUFFERBOL 
STAX D :A TARBA 

INR C 

INR E 3A MUTATO NOVELESE 
JNZ LOADZ 


A SAY/SZEKTOR-SZAM NOVELESE 


INR D 
INR LL 3A SZEKTORSZAM NOVELESE ES BETOLTESE 
mOV AL :AZ AKKUBA 


A SAV VEBENEK VIZSGALATA 


CPI 17 ;ELERTUK A 17-ES SAVOT 
JC — LOAD3 — ; NEM 

INRH JA SAVSZAM NOVELESE 
MVI L,O ;A SZEKTORSZAM NULLA 
MOV ASH :A SAVSZAM AZ AKKUBA 


KESZ,HA AHA 3-AS SAVRA HUTAT 


CPI 3 
JNZ LOADI — ;A KÖVETKEZO SZEKTOR OLVASASA 


LDA IOTYPE ;NAGY/KISBETU MOD 


ANI 23H 
INZ LOADA 
MVI A,i 


STA KYBDMD :A KAPCSOLO BEALLITASA A BIOS-BAN 


JUGRAS A BIOS BODT RESZERE 
JMP BOOT 


101 


6.7.4 A BIOS a Commodore 64-esen CP/M 2.2-re 


0 REM dtítátt FSB. dtátátit 


£.§ 

2 8 

100 : f COPYRIGHT (C) 1982 

110 z ; COMMODORE INTERNATIONAL 

120 : $ 

150 : s A VALTOZAT SAJATOSSAGAI s: 

140 : ; 

150 : H 1. 52 K RAM IGENYU BIOS RENDSZER, A BIOS 65 ALTAL 
160 : ; LETREHOZOTT I/0 RUTINNAL. 

170 : s 

180 : ; 2.  LEMEZTABLAZATOKAT ES A VEKTOROKAT A 2-ES 
1909 : 3; EGYSEG TAROLJA. 

200 : ; 

210 : ; 3. I/O BYTE NINCS BEEPITVE 

2209 : $; 

230 : ; 4.  LYUKASZTO ES OLVASO RUTINOK MEG NINCSENEK. 
2409 z ; 

250 : H 53. A KLAVIATURA ES A FUNKCIOBILLENTYUK 

260 : 3 HOZZARENDELESET A BIOS 65 TARTALMAZZA. 

270 : ; 

280 : ; 6. A COMMODORE 64-ES 209K-48K-IG TERJEDO CP/M 
2909 : $ RENDSZERT TAMOGAT. 

si : fr 

310 : ; 7.  VIRTUALIS LEMEZEGYSEG (B) A VC 1541 MELLETT 
3209 : ; 

3309 : ; 8. VALODI LEMEZEGYSEG (B) AZ IEC-BUS MELLETT 
3409 : ; 

350 : H 

369 : 0090 - BASE EDU — 0009H 5A CIMEZHETO RAM KEZDETE 

579 : § 

389 : 002C -— MSIZE EGU 44 jA CP/M TARIGENYE KBYTE-BAN 

399 : ; 

400 : ; "BIAS" A TAR 3499H-TOL SZAMITOTT RELATIV (OFFSET) 
410 : ; CIME (A SZOVEGBEN "B"-VEL JELOLVE) 

429 : H 

421 : 6000 - BIAS EGU — (MSIZE-—209) 41924 

422 : ; 

423 : H UTMUTATO: A MOVCPM ELOALLITASAHOZ A 

424 z ; KÖVETKEZO UTASIÍTASOKRA VAN SZUKSEG : 

425 s: ; 

430 z: s CCP ECU — 0999H 3; BIOSO HEX 

440 : s CCP EGU 9100H 5BIOSI HEX 

450 : ; 

460 : 9490 - cCeP ECU 3400H46BIAS ;A CCP BAZISCIME 

470 : 9CO6 — BDOS EGU  CCPIBOÓH 5A BDOS BAZISCIME 

480 : AAD — BIOS EGU CCP-41600H :A BIOS BAZISCIME 

499 : 0004 - CDISK EDU BASE4O004H ;AZ AKTUALIS EGYSEGSZAM 

495 z: ;590.-.15 EGYENLO A...P 

599 : 0993 -— IOBYTE EGU BASEtOgO3H ;INTEL I/O BYTE 

519 : 090900 - TRANS ECU 9JOOH ;HA a, NINCS FORDITAS 

515 : 9005 — ENTRY EGU  9995H ;BDOS UGRASVEKTOR 

520 : : 

530 : H A KÖVETKEZO UTASITASOK MEGHATAROZZAK A TELJES 
549 : ; TARTERULETET A 6519-ES I/O RUTINOK ADATFORGALMAHOZ 
560 : ; 

5790 : F8g0 - HSTBUF  ERU 0OFBODH 1256 BYTE LEMEZPUFFER 

589 : F900 -— CMD EGU — 9F9JOOH s; UTASITASREGISZTER 

5979 : F901 - DATA ECU 0F9JOIH ; ADATRESGISZTER 

600 : F9O2Z — SECTOR EBDU 0OFIJOZH ; SZEKTORREGISZTER 

b19 : F9g03 - TRACK ECU OF9O3H 3; SAVREGISZTER 

629 : F904 - DISKNO EGU 0F904H ; EGYSEGSZAM REGISZTER 

639 : F905 - KYCHAR ERDU OF905H 3; BILLENTYUKOD REGISZTER 

648 : FCFF — IOTYPE EGU OFCFFH 31/09 KONFIGURACIO-BYTE 


102 


CTL CALDEN TC "EK CK TEK CK TEK TE TS TEN TEN TET T NE " HNK TT TC 1 EN "NK TEK CEC CNN TEK 7 ET TENY TEN T EN TER TEN TK TEN TT TET LENE 7) 


9901 
CEGG 


0099 
00091 
0092 
0095 
00894 
0095 
04096 
0997 
9908 
9499 


AAD 
9916 


ARO 
AROZ 
ARO6 
AAg? 
AROC 
AADF 
AA12 
AA15 
AR1B 


AR1B 
ARALE 
AR21 
AA24 
AA27 
AAZA 
RAZD 


AAZO 


AASZ 


Aaa 
AAZB 
AASC 
AR49 


AA4a 
AR48 
[alaki 
AASO 


AA54 
AaA56 
AAS7 
AA5B 
AA59 


[ 


1! A. ER (B! 


0 ER : HR ER! 


CSOCAA 
CSIDAB 
C39EAB 
CSORAAC 
C38B3AC 
CSCSAC 
CSI16GAD 
CS19gAD 
CS1EAD 


CS29AD 
CSSDAD 
CS345AD 
CS48AD 
C3S5S1AD 
CSS5AD 
CSEBAC 


CS4EAD 


049000900 
9990909990 
1FAF54AA 
DDAF9FAF 


04900900900 
04990900 
1FAFS4AA 
EDAFBEAF 


VICIN 
VICOUT 
VICPST 
VICPRT 
VICFMT 
AUX1 
AUXZ 
INDIR 


YBDMDz 


EJ esen ae Ze 


$ 
ha 


A 780-AS A "MODESW" TARCIMRE "OFF"-T IRVA 
KIKAPCSOLJA ONMAGAT 


EGU 1 
ECU  OCEROH 


A 6519-ES I/O RUTINJA 


EGU 0 A KIVALASZTOTT SZEKTOR OLVASASA 
EgU 1 zA KIVALASZTOTT SZEKTOR IRASA 
Egy 2 3A KLAVIATURA. LEKERDEZESE 

Eg 3 , $ KIIRAS KEPERNYORE 

EO0U 4 jA NYOMTATO STATUSZANAK BETOLTESE 
EgU 5 jKIIRAS NYOMTATORA 

EGU 6 ; LEMEZFORMALAS 

EU 7 JUGRAS A 6510-ES $EG0 CIMRE 

EGU 8 JUGRAS A 6519-ES $FOG CIMRE 

EGU 9? s; INDIREKT UGRAS ($986) SZERINT 
ORG BIOS 3 PROGRAM STARTOK 


EGU — ($-CCP) /258 ;A MELEGSTART SZEKTORSZAMLALOJA 


UGRASVEKTOROK AZ EGYES RUTINOKRA 


JMP BOOT ; HIDEG START 

JMP  WBOOT s; MELEG START 

JMP  CONST s; KONZOLSTATUSZ 

JMP  CONIN 31 KARAKTER BETOLTESE A KONZOLROL 
JMP — CONJOUT ;1 KARAKTER KIIRASA A KONZOLRA 
JMP LIST 31 KARAKTER A LIST-EGYSEGRE 

JMP  PUNCH 31 KARAKTER A PUNCH EGYSEGRE 

JMP READER zj1 KAR. BEOLV. A READER EGYSEBSBRŐL 
JMP HOME 3AZ OLVASOFFJ BEALLITASA 


5; HOME POZICIOBA 

5LEMEZ VALASZTAS 

; SAVSZAM BEALLITAS 

; SZEKTORSZAM BEALLITAS 
;A DMA-CIM BEALLITASA 


JMP  SELDSK 
JMP  SETTRK 
JMP SETSEC 
JMP  SETDMA 


JMP READ OLVASAS A LEMEZROL 

JMP WRITE ; IRAS A LEMEZRE 

JMP  LISTST ;A LIST-EGYSEG STATUSZANAK 
; BETOLTESE 

JMP  SECTRAN $; SZEKTORSZAM ELTOLASA 

DB — 09H ; NAGYBETUS UZEMMOD KAPCSOLO 


KET LEMEZEGYSÉG TABLAZATA 

A €-AS EGYSEG LEMEZPARAMETERE (HEADER) 
DW — TRANS,BO0GH 

DW — AZORH, OROBH 

DW — DIRBF,DPBLK 

DW — CHKOB,ALLOO 

AZ 1-ES EGYSEG LEMEZPARAMETERE (HEADER) 
DW — TRANS, B039H 

DW — OOXZH, OAZOH 

DW — DIRBF,DPBLK ; 

DW — CHKBI,ALLOI 


AZ ALTALANOS LEMEZRE VONATKOZO PARAMETEREK 


DW 54 ; SAVONKENT I SZEKTORSZAÁM 
DB 3 3 BLOKKELTOLASI TENYEZO 
DB Z 3; BLOKK MASZK 

DB [j) 3 NULLA MASZK 

DW 135 3; LEMEZKAPACITAS 
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1290 
1399 
319 
132 
13550 
1340 
1550 
1360 
1370 
1380 
1390 
14090 
1410 
1420 
1450 
1440 
1450 
1460 
1470 
1480 
1490 
1590 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
15809 
1590 
1609 
1610 
1620 
1630 
1640 
16509 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1755 
1760 
1770 
1780 
1790 
1890 
1810 
1820 
1850 
1840 
1850 
1860 
1865 
1870 
18980 
1890 
1990 
1910 
19720 


TTL TS TNS C HT S. ST HK C HSK TC S 7 TR S TEST NK CNN TEN TT NN TNK TEN TEN TT TEN? EN TEN TEN HR TT TS TK PET YEN PL NT "NY TE PET ? NN TEST CE PINT TEN TS TEN TEN " ENC T NK TNS EN PT VEN TENY CNN PINK TEN TERT TEN TENY TEST TEN PI 


AASB 
RASD 
AASE 
AASF 
AA561 


AA6GZ 
AA6G4 
AA65I 
ARA66 
AA6B 
AAGA 


F28D 
FOCC 
FOCF 


ARAGC 
RAGE 
AA71 
AA72 
AA75 
AA78 
AR7B 
AA7E 
AAB1 
ARABS 
AAB6 
AABI 


AASC 
AABF 
AA92 


AA95 
AA9B 


ARTB 


ARTE 
ARAD 
ARAS 


AARR6 
ARAB 
ARACC 
RACF 
ARAF7 
AB1B 


AB1D 


ABZ2ZO 
AB2Z 


3FwO 
cg 
09 
1990 
0290 


40 
00 
00 
9909 
DOFD 
90oFC 


3E209 
SZCFFOD 
AF 
320300 
320400 
321EAF 
3210AF 
3212AF 
SEC3S 
329000 
2103AA 
229100 


320500 
210697E 
229660 


019800 
CD4gAD 


11A6AA 


9E07 
CD0504 
CSBDAI 


ocga 
2092 
gDOoARgAa 


; 
LASTKY: 
TOGGLE: 
CSTAT: 

MSGPTR: 
TBLPTR: 
MSGTBL- 


a 


va 


an 


SIGNON: 


292045 


20204356F70 
2020202020 


9424 


318990 


0EVC 
CD2YAD 


WBOOT: 


DW 63 3A FILE-BEJEGYZESEK MAX. SZAMA 


DB 172 ;FOGLALTSAG (0) 

DB o ;FOGLALTSAG (1) 

DW 16 ;FELULYIZSGALT BEJEGYZESEK 
DW 74 ;SsAV OFFSET 


A TABLAZAT VEGE 


A KOVETKEZÜ TARTERULETEKET A RENDSZER 
BETOLTESEKOR INICIALIZALJA 


DB 4OH 5AZ UTOLJARA BEUTOTT BILL.VEKTORA 
DB O0H ; ATKAPCSOLAS NAGYBETUS UZEMMODRA 
DB OOH 3A KESZ KARAKTER KAPCSOLOJA 

DW O000H ; MUTATO A FUNKCIO BILL. SZOV.-ERE 
DW OFDOGH 3; BILLENTYUZET-DEKODOLO TABLAZAT 
DWwW OFCGOH 3A FUNKCIO BILLENTYUK VEKTORA 


EGYEB KLAVIATURA- MEGHATÁROZÁSOK 


ECU — OFZBDH 3; CONTROL , COMMODORE ES SHIFT BILL. 
ECU  OFOCCH 5A KURZOR BEKAPCSOLASA 
EGU OFOCFH 3 KURZORKARAKTER 


A MŰVELETEKET ELVEGZO RUTINOK 


MVI A,Z2ZOH zAZ ASCII URES KARAKTER, 

STA CURSOR 3MINT KURZORKARAKTER 

XRA A $AZ AKKU TORLESE 

STA  IOBYTE jAZ I/O BYTE TORLESE 

STA EDISK A 0-AS LEMEZEGYSEG KIVALASZTASA 
STA CURDSK ; MUTATO A VIRTUALIS LEMEZRE 

STA HSTACT :A PUFFER INAKTIV 

STA UNACNT 3A "NEM FOGLALT" SZAMLALO TORLESE 
MVI A,OCSH jA CS: A JUMP OPCODE KODJA 

STA O$tBASE 3UGRAS A WBOOT-RA 

LXI  H,WBOOTE 5A WBOOT UGRASI CIMENEK 

SHLD 1rBASE ; BEALLITASA 

STA StBASE ;UGRAS A BDOS-RA 

LXI H,BDOS A BDOS UGRASI CIMENEK 

SHLD 64tBASE ; BEALLITASA 


LXI  B,80H4BASE  ;ALAPERTELMEZES SZERINTI DMA CIM 
CALL SETDMA 


LXI  D,SIGNON ;A "DE" A BEJELENTKEZESI UZENETRE 
: MUTAT 

NYVI C,9 ;A FUZERKIIRO MUVELET 

CALL ENTRY :A BDOS-BAN 

JMP — GOCPMI ;KESZ A CCP SZAMARA 

DB — OCH,GAH ; KEPERNYOTÜRLES 

DB — " — COMMODORE-64 28K CP/M 2.2 VALTOZAT 

DB — ODH,OAH, 2AH 

DBR — "COPYRIGHT (C) 1979 DIGITAL RESEARCH" , ODH , 0AH 

DE —" — COPYRIGHT (C) 1982 COMMODORE " , ODH, OAH 

DB — OAH," §$" ;A FUZER VEGET JELZO KARAKTER 


LXI  SF,8OH6$BASE ;A PUFFEREN BELULI TARTERULETET 
; VEREMKENT HASZNALJUK 

MVI C,O jA 0. EGYSEG KIVALASZTASA 

CALL SELDSK 
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19309 : AB25 AF XRA A § AZ "A" EGYSEG 

1935 : AB26 5204F?7 STA DISKNO 3 KIVALASZTASA 

194090 : AB29 CDASRE CALL CHGDSK HA EZ MEG NEM TORTENT MEG 
1950 : ABZC CDIEAD CALL HOME ; OLVASOFEJ BEALLITASA A 0. SAVRA 
1960 : AB2F SEDD MVI A,ODH ;5KOCSI VISSZA 

1970 : AB31 CDCOAC CALL COUTS ;KIIRASA 

1980 : H 

1999 : AB34 110994 LXI D,CCP 3A BETOLTES INDUL 

2000 : AB37 0616 MVI B, ,NSECTS 

2010 : AB39 2601 MVI H,i ; sAVSZAM 

2020 : ABSB 2E06 MVI L,6 ; SZEKTORSZAM 

2930 : ABZD 7C LOADI: MOV 0 ASH 

2940 : ABSE 3203F?7 STA TRACK 

2050 : AB4i 7D MOV AJL 

2060 : ABAZ 3202F9 STA SECTOR 

20790 : AB45S 3E00 MVI AS,VICRD :LEMEZOLVASASI UTASITAS 
2080 : AB47 CD974AB CALL I06510 

20990 : ; 

2100 : ABSA 3A01IF? LDA DATA 

2110 : ABAD B7 ORA A 

2120 : AB4E CZ3DAB JNZ LOADI 3HA NEM 0, AKKOR HIBA 

2150 : ABS1 E5 PUSH H 

2140 : ABSZ C5 PUSH B 

2150 : AB53 010001 LXI B.256 

2160 : ABS6 2190FB LXI H,HSTBUF ;LEMEZPUFFER 

2170 : AB5S9 ED DB OEDH A 7Z80-AS LDIR UTASITASA 
2180 : ABSA BO DB GBOH 

2199 : AB5B OEZ2ZA MVI CC, arr 3; MINDEN SZEKTOR UTAN EGY "4" KIIRASA 
22090 : ABSD CDSBZAC CALL CONOUT 

2210 : ABOóOg CI POP B 

22209 : ABSI El FOP H 

2230 : ABSZ 05 DCR B :A SZEKTORSZAM CSOKKENTESE 
2240 : AB63 CAZSAB JZ GOCPM 

2250 : ABOo6G 2C INR HL :A KÖVETKEZŐ SZEKTOR 

2260 : AB67 7D MOV AL 

2270 : AB68 FELl1 CI 17 

2280 : ABGA DASDAB Je LOAD1 

2290 : AB6GD 24 INR H 

23500 : AB6GE 2E00 MVI L,O 

2510 : AB7O CSSDAB JPM LOADI 

2520 : ; A BETOLTES VEGE; PARAMETEREK BEALLITASA, 
2350 : ; ES USGRAS A CP/M-RE 

2340 : GOCPM: 

2350 : AB73 3ECS MVI A,OCSH ;C3 A JUMP UTASITAS 

2360 : AB7S 320000 STA O4$BASE ;UGRAS A WBOOT-RA 

2370 : AB7B 2105AA LXI  H,WBOOTE;A WBOOT UGRASI CIME 

2380 : AB7B 220100 SHLD 14tBASE ;A CIMMEZO BERALLITASA 09-RA 
2590 : ; 

2400 : AB7E 520500 STA StBASE ;UGRAS A BDOS-RA 

2410 : ABBi 210690 LXI H,BDOS ;A BDOS UGRASI CIME 

28320 : ABB4 220600 SHLD 6tBASE  ;:A CIMMEZO BEALLITASA 5-RE 
2450 : ; 

2440 : ABB7 018000 LXI  B,80H£BASE :A DMA KEZDOCIME 

2450 : 3 ALAPERTELMEZESBEN BOH 
2460 : ABBA CDA4BAD CALL SETDMA 

2470 : ; 

24980 : ; 8 
2490 : ABBD 35A9400 GOCPMI: LDA CDISK AZ EGYSEGSZAM BETOLTESE 
25900 : AB97O 4F MoY  C,A ; TOVABBI FELDOLGOZASRA 
25190 : AB91 C30094 JMP CCP 3A CCP-VEL 

2520 : ; 

2550 :t Hi 

2540 : ; A 65319-ES PRG.-OK VEGREHAJTASAT SZERVEZŐ FOPRG. 
200. s $ 

2560 : AB74 3200F? 106510: STA CMD 3 AKKU TARTALMA AZ UTASITASREGISZTERBE 
2570 : AB97 3E01 MVI A,LOFF 
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FT S SL S LL SL SL NK HL? B SL KT ET B" TT HELL LT LT S HT SK SS? B VS" B" HR THE TEST 7 Bt V NN TET T BT TS TEN TWR T BY TERET B TK TK T NK VST TI PEN TEN TNS P ET VR 7 BRT VT HNK "NN TK TEL TC" RK TENG CSK TEN CEN UA 1) 


AB99 
AB9C 
AB9D 


SZO0CE 
09 
[Dov 


2AGORA 
7€ 

95 
3EFF 
cg 


SASSRA 
A7 
cg 


53E02 
CD94AB 


S3ABDF2 


E602 
CACIAD 


SAGARRA 
A7 
CZ2ZCIAB 


SASSAA 
EEG1 
3233AA 
3E9g1 
S5264AR 


3A05F9 
FESA 
CAEOAB 


FESD 
CAEDAB 


2165AA 
BE 
CZESAB 


AF 
3265AA 
c 


F5 
91F401 
OB 
79 
BO 
C2ZE9AB 


3E02 
CD94AB 


Fi 
2105F?7 
BE . 
C2BEAB 


CONST: 


pi 


CONSTO: 


s 


, 
CONST1: 


; 
CONSTZz: 


CONSTS3: 


ve. 


sTa 
NOB 
RET 


MODESW 


:A 280-AS KIKAPCSOLASA A 
: HARDVER MIATT 


:A KONZOLSTATUSZ FFH, HA A KARAKTER KESZ, 
:; EGYEBKENT O0H 


LHLD 
MOV 
ORA 
MVI 
RNZ 


LDA 
ANA 
RNZ 


MUVI 
CALL 


MSGPTR 
A,H 

L 

A, OFFH 


CSTAT 
A 


A,VICIN 
106510 


SHFTST 


o2a 
CONSTO 


TOGGLE 
A 
CONSTO 


KYBDMD 
91H 
KYBDMD 
A,1 
TOGGLE 


KYCHAR 
Z3AH 
CONST 1 


3DH 
CONST1 


H,LASTKY 
M 
CONST2 


A 
CSTAT 


PSsW 
B,590 


AC 
B 
CONST3 


A,BICIN 
106519 


PSWw 
H, KYCHAR 
Mm 

CONST1 
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s FUNKCIOBILLENTYU-UZEMMOD 

; "AZ ADAT KESZ" KAPCSOLO 

3 RETURN, HA MSGPTR (2 B 

: VOLT-E MAR KARAKTER 

; IGEN, HA NEM 0 

5EGY KARAKTERT BETOLTO UTASITAS 
3A KONTROLLBILLENTYU STATUSZANAK 
; BETOLTESE 

:A COMMODORE BILLENTYU VIZSGALATA 
3 UGRAS, NINCS LENYOMVA 

;LE VOLT-E NYOMVA BILLENTYU 


3; NEM, VARAKOZAS 


5A NAGYBETUS UZEMM. KAPCS. BETOLTESE 
jAZ UZEMMODBIT KIELEMZESE 


:EGY KARAKTER BETOLTESE 
; ERVENYTELEN KONTROLL-KARAKTER 
3 EERVENYTELEN KONTROLL-KARAKTER 


; OSSZEHASONLITAS AZ UTOLSO BILL.-VEL 
z ADATVIZSGALAT 
5 HA KULONBOZO, UJ BILLENTYU 


3"NINCS KESZ ADAT" KAPCSOLO 
: TAROLASA 


3MEG EGY KARAKTER BETÜLTESE 


; 


rt HC HL SK. LNN HL. MNK a NK, HL" NK" Hl " HNK" Vt 0 B" HK " EN TET NN VEN" NK " HNK ? HT TRE T B "NN BR "NT TEK CNN TK 7 ENE TNS PEN T NE TEN TT VEN CT TEN TNS T WRC "NN TEN " WE 1 EN TEN "NN 7 TT BT NN TENI TK TENY TR PE TENY VINNY PENNY NNTP NT TENY PINT 1 


SZOÓZAA 
FE49 
CAEGgAB 


SEFF 
3265AA 
[DA 


5Eg9 
SZCCFB 


2AS56AR 
2C 
B5 
C2SFAC 


CD9EAB 
B7 
CAL7AC 


AF 
3265AA 
ZSASZZAA 
47 
Z3ABDF2 
E601 
CASODAC 


0602 
SABDF2 
E604 
CASARC 


0605 
3ASZAA 
87 

87 

89 
2A6BAA 
85 

6F 
3E0g9g 
ec 

67 

Fú ri 
FE80 
DA71AC 
Z2ZAGARA 


69AC 


9. 


sa. 


CONINZ: 


a 


CONINS: 


va. 


CONIN4: 


CONINSz 


STA 
CPI 
Jz 


MVI 
sTA 
RET 


EGY 
MVI 
STA 


LHLD 
MOV 
ORA 
JNZ 


CALL 
ORA 


XRA 
STA 


MOV 
LDA 
ANI 


MVI 
LDA 
ANI 


LASTKY 
A4DH 
CONST1 


A, OFFH 
CSTAT 


s 
;410H, HA NINCS LENYOMVA A BILLENTYU 


zA "KESZ KARAKTER" KAPCSOLO 
: TAROLASA 


KARAKTER BETOLTESE A REGISZTERBE 


AB 
FLASH 


MSÉGPTR 
A,H 

L 
CONIN5 


CONST 
A 
CONINi 


A 
CSTAT 
KYBDMD 
BE 
SHFTST 
g1H 
CONIN3 


B,2 
SHFTST 
04H 

CONINA4 


B,3 
LASTKY 
a 


-—n 
m 
5 
aj 
2 


mp TT 
s. . 
SD 


; 
3 
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5A KURZOR BEKAPCSOLASA 


:A FUNKCIOBILLENTYU-UZEMMOD 


A KONZOLSTATUSZ VIZSGÁLATA 


; VARAKOZAS AZ UJ KARAKTERRE 


:A STATUSZ: TORLESE 
: SHIFT-0, NAGY-I1 


;A SHIFT/CTRL STATUSZ BÉTOLTESE 
5LE VAN-E NYOMVA A SHIFT 
; UGRAS , HA NINCS 


; SHIFT-2 
;A STATUSZ BETOLTESE 

;LE VAN-E NYOMVA A KONTRÓLL 
; UGRAS , HA NINCS 

3; KONTROLL -3 sa j 
;5A BILLENTYUSZAM BETOLTESE 
s e2 

sa 

;A SZAMOK OSSZEADASA 

3A BILLENTYUTABLAZAT CIME 
;MUTATO A TABLAZATRA 


3EGY KARAKTER BETOLTESE A TABL.-BOL 
5HA 2 7FH, AKKOR FUNKCIÓBILLENTYU 

; UGRAS , HA ASCII-KARAKTER 

;A SZOVEGTABLAZAT KEZDÜCIME 

;7 BIT TORLESE 

; ez 

s MUTATO A TABLAZATRA 


$LO BYTE 
;HI BYTE 


EGY KARAKTER BETOLTESE 
3A KOVETKEZO KARAKTER VIZSGALATA 


. 


HA 0,8-BEN AZ UTOLSO KARAKTER 


3899 : ACS6 210900 LXI  H,OO00H ;A SZÖVEG MOD VEGE 

39909 : ACS? 2266AA CONIN6ó: SHLD MSGPTR Ő ;A SZOVEGMUTATO TAROLASA 

3910 s: ACAC 78 MOV A,B :A KARAKTER VIZSGALATA 

39209 : ACOD A7 ANA A ;HA AZ ELOZO JEL 0 

3939 : ACGE CALI7AC hyá CONINI ;:HA 8 AKKOR NINCS TOBB KARAKTER 
39409 : ; 

3950 s AC71 F5 CONIN7: FUSH PSW 5A KARAKTER TAROLASAR 

3960 : AC72 3E01 VI Ai 

3970 : AC74 3Z2ZCCFO STA FLASH :A KURZOR KIKAPCSOLASA 

3989 : AC77 0E20 ML Cs ; URES KARAKTER 

39909 : AC79 CDSZAC CALL CONOUT ;KIIRAS 

4999 : AC7C 3EJ9D MVI A,9DH 5; KURZOR BALRA 

4010 : AC7E CDCORC CALL COUTS :A SZURO ATUGRASA 

4929 : ACBI1 FI POP PSW 5A KARAKTER VISSZATOLTESE 
4039 : ACAZ E97 RET :KESZ 

4940 : ; 

4050 : ; CONOUT: ;:5EGY KARAKTER A C RESISZTERBŐL A KONZOLRA 
4060 : ACBZ 3AFFFC LDA IOTYPE ;:KONFIGURACIO-BYTE 

409079 : ACB6 E5610 ANI  109H A FILTER IGNORALVA 

4ggyg : ACBB 79 MOV AC AZ AKKUBAN LEVO KARAKTEREK 
49099 : ACBI CZCBARC JNZ COUTS 5KIIRASA VALTOZATLANUL 

4109 : ; 

4110 : ACSBC CDF4RC CALL SWAP 3 NAGY/KISBETU FELCSERELESE 
4129 : ACBF FEUGC CPI OCH zA KEPERNYOTORLES ASCII-KODJA 
4130 : ACI1 C299AC JNZ COUTI :UGRAS HA NEM 

4140 z 3 

4150 : ACI4 3E93 MVI A,73H :A KEPERNYOTORLES COMMODORE-KODJA 
4160 : ACI6 CSCBAC IJMP C0OUT5 

4170 : § 

4189 : ACII9 FEGB COUTI: CPI G8H ASCII VISSZALEPES 

4199 : ACIB C2ZASAC JNZ CHOUTZ ; UGRAS , HA NEM 

4209 : ACIE 3E14 MVI A,14H 3A TORLOKARAKTER COMMODORE-KODJA 
4210 : H 

4229 : ACADG CSCBAC JMP  COUTS 

AZSZO : ACAZ FEGA , COUT2: CPI OAH ; SOREMELES 

4240 : ACAS CZADAC JNZ COUTZ 

4250 : 3 

4260 : ACAB SE11 MVI A,17 5A SOREMELES COMMODORE-KODJA 
4270 : ACAA CSCOAC JMP COUTS 

4289 : k- 

4290 : ACAD FEOGD COUT3: CPI ODH 5KOCSI VISSZA 

4399 : ACAF CZDAAC JNZ COUT4 

4310 : ; 

4320 : ACB2 CDCAAC CALL COUTS 

4330 : ACBS5S 3E91 MVI A,145 EGY SOR AZ AUTO LF-HEZ 

4349 : ACB7 CSCgAC JMPF COUTS 3; KIMARAD 

453509 : s 

4560 : ACBA FE2D COUT4á: CPI 20H 

4570 : ACBC D8B RC : RETURN HA KONTROL-KARAKTER 
4380 : ACBD FEgB9 CPI 8GH 

43990 : ACBF DB RNC S RETURN, HA NEM ASCII-KARAKTER 
4400 : s 

4410 : ACCO S201F7 COUTS: STA DATA 3A KARAKTER ATVITELE A DATA-BA 
4420 : ACC3 3E03 MVI AS,VICOUT :;3A KEPERNYOKIIRAS UTASÍTASA 
4430 : ACCS CS94AB JMP IO6510 

4440 : ú 

4459 : LIST: 3EGY KARAKTER A C REGISZTERBOŐL A LIST-EGYSEGHEZ 
4469 : ACCB SAFFFC LDA IOTYPE ;:MELYIK NYOMTATO 

4479 : ACCB E604 ANI 94H 50,HA 1515-OS, 1,HA 4022-ES 
44BO : ACCD 79 MOV A,C 5EBY KARAKTER AZ A REGISZTERBE 
4499 : ACCE CZEZAC JNZ LIST2 5 UGRAS, HA NINCS CSERE 

4500 : 3 

4510 : ACD1I 3AFFFC LDA  IOTYPE 

4529 : ACD4 E608 ANI — O8H ;MELYIK TIPUSRA KELL VALTANI 
4538 : ACDó 79 MOV AC :EGY KARAKTER BETOLTESE 

4549 : ACD7 CZEBAC JNZ LISTI 
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4550 


4560 : ACDA CDF4AC CALL SWAP 3; NAGY/KISBETUK FELCSERELESE 
4570 : ACDD CSESAC JP LISTZ 

4580 s: : 

4590 : ACEG CDOBAD LIST1: CALL SWAP2 :A 49022-ES CSERERUTINJA 

4600 : ACE3 3201F9 LISTZ: STA DATA 3 EGY KARAKTER ATADASA 

4610 : ACEG 3EG5 MVI AS,VICPRT :AZ 1515-RE 

4520 : ACEB C394AB LISTS: JMP 106510 

4630 : : 

4640 : LISTST: :A LIST EGYSEG STATUSZA (B,HA KESZ;EGYEBKENT 1) 
4650 : ACER 3E04 MVI ASVICPRT ;A NYOMTATOSTATUSZ UTASITASA 
4660 : ACED CD94AB CALL IO6510 

4670 : ACFO S3ADIF? LDA DATA 5A STATUSZ: DATA 

A4AG6GBO : ACF3 CI RET 

4690 : ; 

4700 : SWAP: :A NAGY/KISBETU CSEREJE A COMMODORE 64-EN 
4710 : ACF4 FE41 CPI " .41H ;KISEBB, MINT A NAGY "A" 

4720 : ACF6ó D8 RC 3 RETURN, HA IGEN 

4730 : ; 

4740 : ACF7 FESB CPI SBH 3 NAGYBETU 

4750 : ACF? DAGSAD JC SWAP1 ; UGRAS , HA IGEN 

4760 : ; 

4770 : ARCFC FE6G1 CPI 61H ;KISEBB, MINT A KIS "A" 

4780 i: ACFE DB RC : UGRAS, HA IGEN 

4790 : ; 

4900 : ACFF FEFB CPI 7BH 3 KISBETU 

4810 : ADO1 DO RNC 3 RETURN , HA NEM 

48209 : § 

4839 : ADOZ E65F ANI SFH sAZ 5. BIT TÖRLESE 

4B4Gg : ADO4 C? RET 

4850 : ; 

4860 : ADG5S F62ZD SWAPi: ORI 20H :AZ 5. BIT BEALLITASA 

4870 : ADO7 CI RET 

4880 : ; 

4890 : ADOB FE41 SWAPZ2: CPI 41H :CY,HA KISEBB, MINT A NAGY "A" 
4990 : ADOA D8 RC 

4910 : ADOB FE6GD CPI  6gH 5CY,HA 49H £ A £ 60H 

4929 : ADOD D213AD JNC SWAPS 

4930 : $ 

4940 : AD1OG F6GBD ORI  80H 

4950 : AD12 C9 RET 

4960 : ; 

4970 : AD13 E65F SWAPZ3: ANI SFH 

4980 : ADIS C? RET 

4990 : g 

50090 : PUNCH 3EGY KARAKTER A C REGISZTERBŐL A PUNCH EGYSEGRE 
5919 : AD16 79 NOV A.C 3 KARAKTER A REGISZTERBEN 

50929 : AD17 00 NOP 

5039 : ADI8 CI RET 3 NULLA RUTIN 

50409 : ; 

5050 : READER: ;5EGY KARAKTER A READER EGYSEGRŐL AZ A REGISZTERBE 
5060 : AD197 3E1A MVI A,1AH 5FILE VEGE KARAKTER (CTRUC Z) VISSZA! 
5970 : AD1ÍB E67F ANI 7FH :PARITASBIT TORLESE 

508090 : ADID C9 RET 

5999 : $ 

5100 : H 

5110 : PENN RÁ E KEEN ETET EE EE NE EREJE ETETETT TERE E 3 AE 
5í29 : za ax 
51309 s se KONSTANSOK A HOSTLEMEZHEZ 3 
5140 : ae a 
5150 : GEBE BEEE EE ETETETT E EE ETELE TE JEE NEJE EHE EE 
5160 : 0400 - BLKSIZ EGU 10924 :A CP/M HELYIGENYE 

5170 : 0100 - HSTSIZ ERU 256 :A HOST LEMEZ SZEKTORNAGYSAGA 
3180 : 90911 -— HSTSPT EGY 17 3 HOST LEMEZ SZEKTOR/SAV 

5190 : 0002 - HSTBLK EGU HSTSIZ/128 CP/M SZEKTOR/HOSTPUFFER 
5200 : 0022 - CFMSPT EGU HSTBLK tt HSTSPT ;CP/M SZEKTOR/SAV 
5210 : G9g91 — SECMSK EOGU HSTBLK-1 : SZEKTORMASZK 
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CTL c HG SE CK CNN TT "EK "EK 7 B (HT EK. NK 7 EK " HK 7 TK "NK " HK "B " HT TEK " B 1 EK "HR TEN " HV NT " BNV BR TEST TET EK TEN TEK ? HNK T NE PENN TK TEN TET 7 EK 1 ENE TENY TINI T B 7 HK TEK TEN TK! ER TEST 7 B TENI 7 EN TENI! HT VENNI BNV TTL TE PENN TET TT EN TEN TEST TNNK 7) 


0991 


0990 
9991 
3902 


ADIE 
ADZ2Z1 
AD22 


AD25 


ADZB 


AD27 
ADZC 
ADZ2ZD 
AD3Oa 
ADSZ 
ADSS 
AD3a 
ADSS 
AD36 
AD37 
ADSB 
ADSB 
ADSC 


ADSD 
ADSE 
ADSF 
AD42 


AD43 
AD44 
AD47 


AD4a8 
AD49 
AD4A 
AD4D 


AD4E 
AD4F 
AD58 


Ki 


SA11AF 
B7 

C2Z2BAD 
3219AaF 


[DA 


219990 
79 
3207aF 
FEGg2 
DO 

oF 

29 

29 

29 

29 
1134AA 
19 
[DoCA 


SECSHF EGU 1 


Fi REJEE At 9E-E DE HE-HE 3E- EBEÉ 8-1 1E— hl ht. 36—16—DE -1E--16—1€— BE IE 34-36 IE 36-IE-BE E E 96-9E-AE 3-9 9—t-IE--3E-46-46- 


3;LOGZ (HSTBLK) 


Had xx 
zt BDOS KONSTANSOK IRASRA UGRASNAL hadi 
3; te 4e 


BEEE EE E IE IE BESE E IE 36 JE IE IEEE 46-36-36 AE IEEE JE IEEE JEE 36-96-46 -1E 46 3E- 
WRALL. EGU 8 5WRITE TU ALLOCZATED 
WRDIR EGU 1 : WRITE TO DIRECTORY 
WRUAL EGU 2 : WRITE TO UNALLOCATED 


g 


A KIVALASZTOTT LEMEZ HOME-—-MUVELETE 


: 
HOME: 
LDA HSTWRT ;:VIZSGALAT WRITE—HOZ 
ORA A 
JNZ — HOMED 7 
STA HSTACT 5HOST—-AKTIV KAPCSOLO TÖRLESE 
HOMÉD : 994 
RET 
9 
SELDSK: 
; LEMEZVALASZTAS 
LXI  H,OO00OH ;A VISSZAADOTT HIBAKOD 
MOV" A,C :A KIVALASZTOTT LEMEZ SZAMA 
STA -SEKDSK ;:A LEMEZSZAM TAROLASA 
CPC 2 :0 VAGY 1 KELL HOGY LEGYEN 
RNC ;HA NINCS ATVITEL , EGGYEL NO 
MOV L,A :A LEMEZSZAM SZORZASA 
DAD  H 316—AL HL ALAPJAN 
DAD  H 
DAD H 
DAD H 
LXI " DJDFBASE  ;A PARAMETERELÜKK BAZISA 
DAD "DD. :HL-DPB 
RET"-".: 
p. AdaTaé s ; 
SETTRK: 
5A SAVSZAM BEALLITASA A BC REGISZTERBOŐL 
MOV  H,B 
MOV LSE 
SHLD SEKTRK ;A KERESETT SAVHOZ 
RET 
; 
SETSEC: 
3A SZEKTORSZAM BEALLITASA A C REGISZTERBOL 
MOV AC 
STA SEKSEC ;5A KERESETT SZEKTORHOZ 
RÉT 
; 
SETDMA: 
;A DMA CIM BEALLITASA A BC REGISZTERBOL 
MOV H,B 
MOV L,C 
SHLD DMAADR 
RET 
3 
SECTRANz j 
5-3. 3A BÚ REGISZTERBELI SZEKTORSZAM 
HV: HB - 
j HOV LE 
RET : 
; b 
Hi EE At 46-06-16 46 At--IE- 1 4E-9E-BE-t- AE tl Al-E-96- bél 16- 44- 04-00 Bt. 96-9E-AE-Ht--RE JE BE NE-1l- At AE 616040 06 96-1r-éőr 
an - 7 éa ? 4 
gdb. 5. A READ BEUGRASI PONT KOVETI AZ tág ák 
"gi. . .".. ELŐZETES BIOS MEGHATAROZAST "7 égy 
pe. azeit kégözyén Bé , k 


E Sntetettatettetettettetettettatatattsásístsásásástetsásönöstnásteteketnösésénésésísketetetokaáási 
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b6 06 Na Ú8 ez 06 te as 86 08 24 bó a6 69 E0 0s 00 t6 04 se 809 04 58 08 09 04 06 09 06 08 60 06 646 00 69 ez 00 508 06 64 00 80 26 80 06 06 88 00 06 06 A 08 69 89 6 08 69 00 66 09 a4 B6 a6 04 a 49 80 


AD51 
AD5Z 
AD5S5 
AD57 
ADSA 
ADSD 
ADSF 
ADOZ 


AF 
3212AF 
3E01 
3219AF 
3218AF 
3E02 
SZ1AAF 
CSDBAD 


AF 
3219AF 
há a 
321ARF 
FEOZ 
C289AD 


3E08 

3212AF 
3AG7AF 
32Z1SAF 
ZAGOBAF 
2214AF 
ZABAAF 
3216AF 


3A12AF 
B7 
CACSBAD 


3D 
3212AF 
3AD7AF 
2115aF 
BE 
CZCSBAD 


2114AF 
CDOBAE 
C2ZCSAD 


ZABDAAF 
2116AF 
BE 

C2CSAD 


READ: 


5A KIVALASZTOTT CP/M SZEKTOR OLVASASA 

XRA A 

STA  UNACNT 

MVI A,1 

STA READOP ;READ MUVELET 

STA RSFLAG ;AZ ADATOK OLVASASA 

MVI  A,WRUAL 

STA WRTYPE ;LEKEZELES "NEM FOGLALT "—KENT 
JMP  RWOPER ;5A READ-UTASITAS VEGREHAJTASA 


tedleltelt öta áá ösöö lá S öelássltatteltelkottettettettatoltsttetta tö öl öss ás ös áttsál 


at 


AR WRITE BEUGRASI FONT KOVETI aZ ae 
ELOZETES BIOS MEGHATAROZAST a 
4 


; HETE AE At AE 9E Bt AE 33E AE At E 9 EME A EAT IE DE AE IE TE DE TE DE 9 EDE AE AE IEEE 34 3E 96 IE 34-96 -AE At 369 -HE 


WRITEz 


149 ar 


; 
CHKUNA: 


ta9 a 


váz er 


5A KIVALASZTOTT SZEKTOR IRASA 


XRA A 50 AZ AKKUBA 
STA READOP ;NEM OLVASASI MUVELET 
MOV AC 3A HRITE TIPUSA C ALAPJAN 


STA WRTYPE 
CPI WRUAL 3 WRITE NEM FOGLALT 
JNZ CHKUNA ;SZABAD HELY KERESESE 


WRITE NEM FOGLALT, PARAMETER BEALLITASA 

MVI A,BLKSIZ/128 ;3A KOVETKEZO SZABAD REKORD 
STA UNACNT 

LDA SEKDSK ;LEMEZ 


STA UNADSK ;5UNADSK — SEKDSK 
LHLD SEKTRK 

SHLD UNATRK " ; UNATRK — SECTRK 
LDA SEKSEC : 

STA UNASEC ;UNASEC 5 SEKSEC 


; SZABAD SZEKTOR KERESESE WRITE-HOZ 
LDA  UNACNT ;VAN-E MEG SZABAD HELY 
ORA A 

JZ — ALLOC — ;UGRAS,HA NINCS 


TOVABBI SZABAD REKORDOK 

DCR A ;UNACNT — UNACNT-—1 
STA UNACNT. 

LDA  SEKDSK- , ; AZONOS LEMEZ 

LXI  H,UNADSK 

CMP.M ; SEKDSK z UNADSK 
JNZ ALLOC — ;UGRAS , HA NEM 


AZONOS LEMEZ 

LXI  H,UNATRK 

CALL. TRKCMP ,. . ; SEKTRK — UNATRK 
JNZ ALLOC . :3UGRAS, HA NEM 


AZONOS SAV tél tgsiá 

LDA , , SEKSEC : ; AZONOS SZEKTOR 
LXI  H,UNASEC 

CMP M $SEKSEC — UNASEC 
JNZ ALLOC — ;UGRAS HA NEM 


t 


A. KOVETKEZO SZEKTOR KESOBBI HOZZAFERESEHEZ . 
INR M 3ZUNASEC — UNASECt1 j 


"MOV AM 5 VEGE A SAVNAK 


ECPI .EPMSPT 5CP/M SZEKTORSZAMLALO 
Je NOOVF 3 UGRAS , HA NINCS ATVITEL 


9 st 0 azt e 
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6570 : ; ATVITEL A KÖVETKEZŐ SAVRA. 

65890 : ADBB8 3600 MVI M,O ;UNASEC — 0 

65990 : ADBA 2A14AF LHLD UNATRK 

6600 : ADBD 23 INX H 

6610 : ADBE 22148F SHLD UNATRK ;:UNATRK — UNATRK--1 

6620 : § 

6630 : NOOVF z 

6649 : ADCI AF XRA A :9 AZ AKKUBAN 

6650 : ADC2 S2Z18AF STA RSFLAG ;RSFLAG —- 0 

6660 : ADCS C3SDOAD JMP RWOPER :IRASRA 

6670 : ; 

6680 : ALLOC: 

6699 : ADCB AF XRA A :0 AZ AKKUBAN 

67900 : ADC? S2Z12AF STA UNACNT ;UNACNT -— 0 

6710 s: ADCC S5C INR aA 31 AZ AKKUBAN 

67290 : ADCD S218AF STA RSFLAG ;RSFLAG — 1 

67350 : ; 

6740 : BEEE ÁÁ EE TE EE E EEEN E TE EE KEL 96EJE EA At-961-dE HE 
6750 : zat ae 
6760 : sat A READ ES WRITE KOZOS KODJAI 3e 
6770 : gat É ar 
6780 : FENE ÁLLÁT EE DE EE E TE JÉ JE EEEN TETEJE EE EE 9E-IE AE 9E EE 96-46-9E E 
6790 : RWOPER: 

6800 : ; UGRAS A READ-RA ES A WRITE-RA 

6810 : ADDO AF XRA A jAZ AKKU TORLESE 

6829 : ADD1 32178AF STA ERFLAG ;NEM VOLT HIBA 

6830 : ADDA ZADARF LDA SEKSEC ;A HOST SZEKTOR KISZAMITASA 
6840 : ADD7 B7 ORA A 5 CARRY 5 0 

6850 : ADD8 1í1F RAR 3; ELTOLAS JOBBRA 

6860 : ADD? 320FAF STA SEKHST ;:HOST SZEKTOR 

6870 : ; 

6880 : ; 

6899 : ADDC 2110AF LXI  H,HSTACT5HOST-AKTIV KAPCSOLO 

69009 : ADDF 7E MOY. A,M 

6910 : ADEOG 3601 MVI M,i ; MINDIG 1 

6920 : ADEZ B7 ORA A ; VOLT MAR 

6930 : ADES CAGARE JZz FILHST ;A HOST FELTOLTESE,HA NEM 
6940 : FH 

6950 : ; AZONOS A KERESO PUFFERREL 

6960 : ADE6 3AG7AF LDA SEKDSK 

6970 : ADE9 Z210BAF LXI  H,HSTDSK; AZONOS LEMEZ 

6980 : ADEC BE PR ; SEKDSK - HSTDSK 

6990 : ADED C203RE JNZ -NOMTCH 

70900 : H 

7010 : s AZONOS LEMEZ, AZONOS SAV 

7020 : ADFO Z210CAF LXI H,HSTTRK 

7030 : ADF3 CD6BRE CALL TRKCMP 5SEKTRK — HSTTRK 

7040 : ADF6 C2OSRE JNZ  NOMTCH 

7050 : , 

7060 : ; AZONOS LEMEZ, AZONOS SAV, AZONOS PUFFER 
7070 : ADF9 SAOGFAF LDA SEKHST 

7080 : ADFC 210EAF LXI  H,HSTSEC; SEKKST -— HSTSEC 

7090 : ADFF BE CMP KN 

7100 : AEGG CAZ7RE Jz MATCH : UGRAS , HA EGYEZIK 

7110 s: H 

7120 : NOMTCHz 

71530 : ; JO LEMEZ, ROSSZ SZEKTOR 

7140 : AEOZ 3A11AF LDA HSTWRT :;A HOST TELEIRVA 

7150 : AEOG6G B7 ORA A 

7160 : AREO7 C477RE CNZ WRHST :A HOSTPUFFER TORLESE 

7170 s: § 

7180 : FILHSTz: 

7190 : 3A HOSTPUFFER TOÖLTESE 

7200 : AEOGA ZAD7AF LDA SEKDSK 

7210 : REOGD SZOBAF STA HSTDSK 

7220 : RE1O 2AOBAF LHLD SEKTRK 

7230 : AE13 220OCAF SHLD HSTDRK 
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CON TENY CNN TEK "E 7 NK TEN TEK NN TRNT "ENE TENY LENT TNNT CK TENY CEN TEK 1) 


[LSC LE LENYT EN TEN TET LENT TEST TT 


LDA  SEKHST 
STA HSTSEC 
LDA RSFLAG ;READ 
ORA A 
CNZ RDHST — 5IGEN 
XRA A ;AZ AKKU TORLESE 
STA HSTWRT ;:NEM WRITE 
. 
MATCH: 
: AZ ADATOK MASOLASA A PUFFERBE 
LDA SEKSEC ;A PUFFEREK SZAMA 
ANI  SETMSK ;A LEGALSO BIT LEVALASZTASA 
MOV L,A ;A 2 BYTE-OS SZAMLALO 
MVI H,O ; ELTOLASAHOZ 
DAD H 37-TEL BALRA ELTOLNI 
DAD H 
DAD H 
DAD H 
DAD H 
DAD H 
DAD H 
LXI  D,HSTBUF 
DAD D :;HL A HOSTCIM 
XCHG ; MOST A DE-BEN 
LHLD DMAADR ADATOK OLYASASA/IRASA A CP/M-BEN 
MVI C,I28B — ;AZ IRANYT 
LDA  READOP  ;MEGHATAROZO SZAM 
ORA A 
JNZ  RWMOVE  JUGRAS,HA OLVASAS 
s 
; WRITE MŰVELETEK TAROLASA ES AZ IRANY MEGFORDITASA 
MVI A,i 
STA HSTWRT ;HSTWRT 5 1 
XCHB ; FORRAS/CEL FELCSERELESE 
, 
RWMOVE: 
$C 128-AT TARTALMAZ, DE A FORRAS, HL A CEL 
LDAX D EGY KARAKTER A FORRASTERULETRŐL 
INX D 
MOV MA 5 A CELTERULETRE 
INX H 
DCR € j128 SOR 
; 
; AZ ADATOK TOVABBITÁSA A HOSTPUFFERBÜL/BA 
LDA WRTYPE ;WRITE TIPUS 
CPI WRDIR — 5A TARTALOMJEGYZEKBE 
LDA ERFLAG ;HA HIBA 
RNZ : NINCS, TOVABBI FELDOLGOZAS 
s 
; HOSTPUFFER TARTALOMJEGYZEKBE IRASHOZ 
ORA A ; HIBA 
RNZ jHA IGEN, KESZ 
XRA A ;AZ AKKU TORLESE 
STA HSTWRT 3A PUFFER MEGTELT 
CALL WRHST 
LDA ERFLAG 
RET 


TERÉN At TE E JET NEE9Et9 MÉ 9636 NE EDE 9E 9 96RE E 16 1E E 16-16-E7 16-16-16 14-10-é 


kn 


ae 


at SEGEDRUTIN A 16-BITES OSSZEHASONLITASHOZ át 


it 


hd 


BENE 96-96 -H JE 696 E E 16— E-t 1 16-ÉÉ JE A6-9E-HE-a-16—96—É 16-16-15 TE 9-9 -HÉ E 16 14-1E-16-14-16-9E 96-96 


TRKCMP: 


; HL —- .UNATRK VAGY .HSTTRK OSSZEHASONLITASA A 
3; SEKTRK-VAL 


XCHG 
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CEN TEK? HK NK CK CEN" EN " HNK " Nt CNN BR " HG TEN PET NN 7 NN 7 BRT" HELYET SETÉT TI 


dan pb hé 6 t4 va s6 er AB 04 AE 99 96 99 88 08 16 AN 09 89 09 B 89 09 86 80 8 B9 R9 eg a6 ker 


AEGC 
REGF 
AE70 
RE71 


AE72 
AE75 
RE7A 
AE75 
ARE76 


RECA 


3E01 

SZ1DAF 
ZADBAF 
3204F9 


2 CDASAE 
SADCAF , 


p.: d 
FE12 
DASBFAE 
S2ZOSF5 
JADFAF 
SZO2F97 
SAL1DAF 
CD9SASB 
53AB1FI 
53217AF 
c9 


67 
SAFFFC 
E691 
08 
S204F? 
7€c 


211EAF 
BE 
c8 


77 


" C641 


3ZDDAE 


21CFAE 
CDFARE 
CDOARC 
C2CIAE 
cg 


3E00 


14004 sa at 


46 
hd 
3e 
Há 
st 


LXI 
LDAX 
CMP 
RNZ 


H,STKTRK 
D LO BYTE OSSZEHASONLITASA 
Mm ; EGYENLO 


; RETURN HA NEM 


LO BYTE EGYENLO, A HI BYTE VIZSSALATA 


INX 
INX 
LDAX 
CMP 
RET 


teöstetetelstetetetatetatststső sösísleöatststsösöztetetetetstetettetetstsözösiötöstststös s A 


D 
H ; 
D sí s azé ő 
M (FA KAPCSOLOK BEALLITASA - . 1 


hd 


WRHST FIZIKAILAG A HOSTLEMEZRE IR te 
RDHST FIZIKAILAG OLVAS A LEMEZROL 4 


16 


Hi EHE GE 94-IE-4E 4€ 46 96. 41-t- 06 4t-4€- 06-36 -BE-4E- 96-06-04 Ht- 960. BE. 4E- 86-1E-BE- AE. 96-BE- 44-46-46 06-BE. 97-06-0E 46 46-46-46 46-65 


WRHST: 


WRHSTO: 


: WRHSTZ: 


WRHSTS: 


.. 


3; HSDDSK - HOSTLEMEZ tt, HSTTRK z HOSTSAV tt, 


s; HSTSEC 5 HOÖSTSZEKTOR §. FELIR "HSTSIZ" BYTE-OT 
5A HSTBUF-BOL ES A HIBAT VISSZAADJA AZ ERFLAG-BAN 


3 ERFLAG NEM 0. HA HIBA TORTENT 


:HSTSEC - HOSTSZEKTOR $. "HSHSIZ" BYTE OLVASASA 
5A HIBAKAPCSOLO BEALLITASA AZ .ERFLAG SZERINT 


MVI 


ASVICRD ;DISK-READ UTASITAS 
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55st 


MVI  ALVICWR :A DISK-WRITE UTASITAS 

STA  Rí : BEIRASA. AZ UTASITASREGISZTERBE 
LDA HSTDSK ;A HOSTLEMEZSZAM BEOLVASÁSA 
.STA DISKNO :ES BEALLITASA : 

CALL CHGDSK SVALODI VIRTUALIS LEMEZ 

LDA HSTTRK GA.HOST SAVSZAM BETÜLTESE- ., 
INR A :ES EGY HOZZAADASA 4 
CPI 18 RELATIV CIMKENT (OFFSET-KENTI 
JC WRHSTZ S CARRY, HA A SAV CZ MINT íg 

INR A 

STA TRACK : IRAS A KOZOS TERÜLETRE 

LDA HSTSEC ;5A HOST SZEKTORSZAM BEOLVASASA 
STA SECTOR ;ES IRASA A KOZOS TERÜLETRE 
LDA  Ri 3 LEMEZMUVELET 

CALL [06519 

LDA DATA $A LENEZ-STATUSZ BEOLVASASA 
STA ERFLAG ;ES AZ ERFLAG TAROLASA 

RET 

MOV HA 3A LEMEZSZAM TAROLASA 

LDA IOTYPE :BIT 8-8 VIRTUALIS ESETEM 

ANI 81 

RNZ ; NEM 9,HA KETTO EGYSEG VAN 
STA DISKNO ;AZ "A" EGYSEB 

MOV AH $LEHEZSZAMANAK BETOLTESE 

LXI H,CURDSKZA MI LEMEZUNK 

CP Mm 

Rz 3 RETURN, HA IGEN ! 

MOV MA sAZ UJ LEMEZSZAM BEALLITASA 
ADI "A zAZ ASCII-KARAKTER ELORALLITASA 
STA  DSKMNT ;ES ELHELYEZESE AZ UZENETBEN 
LXI  H,MNTMSG; "INSERT DISK" UZENET 

CALL PMSG ;KIIRASA ES 

CALL CONIN — : VARAKOZAS A "RETURN "-RE 

JNZ CHGDI 

RET 

: HSTDSK — HOSTLEMEZ §$, HSTTRK — HOSTSAV §, 


a9 ea. 


4 an 6 48 66 né 48 EE at et 8 ú6 98 06 AT NE BE 66 98 29 5 SZ A AB B A 94 86 AK 08 46 at 04 46 26 84 a6 55 98 09 04 66 09 09 06 96 09 09 06 99 VE a6 a 40 a 86 


AECC 


AECF 
AEDD 
AEDE 
REF? 


REFA 
RAEFB 
AEFC 
REFD 
REFE 
REFF 
AFUZ 
aFos 
AFo4 


CS79RE 


MJ 
ODORS4I9GEZSMNTMSG: 


41 


DSKMNT : 


20696E749F 


90 


7E 
A7 

c8 

E5 

ap 
CDSZAC 
E1 

23 
CS3FAAE 


; 
SEKDSK: 


SEKTRK: 
SEKSEC: 


; 

HSTDSK: 
HSTTRK: 
HSTSEC: 


, 

SEKHST: 
HSTACTz 
HSTWRTz 
UNACNT : 
UNADSK: 
UNATRK: 
UNASEC: 


ERFLAG: 


. RSFLÁBI; 
" RADOFP: 

. HRTYPE: 
" DMARDR: 


Rús Ő" 


"" CÜRDSKi 


, 

; 

BEGDAT 
DIRBF: 
ALLAO: 
ALLAG1: 
CHKBO: 
CHKOGi : 


3 
" ENDDAT 


DATSIZ 


JMP  URHSTO  ;A TOBBI UGYANAZ MINT A WRKITE-NAL 

DB — ODH,OAH, " INSERT DISK" 

DB 8 

DB INTO DRIVE 0, PRESS RETURN 

DB — 00H 

MOV AM O € sar. ÉS 

"ANA A 9 9 : 

RZ . 91 ev, sa Zn 

PUSH H ; 2 
"7" MOVT DLA SZ hd dt Z Édd Bali TRE 

CALL. CONDUT 3 6; 

POP H re 

INX H 

JMP  PMSG 


9394 BE lt 9t DETÉAb 143 TE HÉÉ HETE E EE 99393 E-É HEH 9 JEE E AE 96 E 
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NEM INIÍCIALIZALT RAM ADATTERULET kal 


ps 
ps 
ps 


"ps: 
DS 
Ds 


DS 
ps 
Ds 


DS 
Ds 
DS 
DS 


ps 
DS: 
DS" 
ps 
DS 
, DS 
DS 


RAM 
E0U 
ps 
DS 
DS 
ps 

DS 


EGY 
EGU 
END 


a 


kdotsdséöüöá áá án önő s totataísásűstststalattetsüttelssésánős ásás ks ásásl 


: SEEK LEMEZSZAM 
ISEEK SAVSZAM 
;5EEK SZEKTORSZAM 


HBN mé 


; HOST LEMEZSZAM 
5 HOST SAVSZAM 
; HOST SZEKTORSZAM 


maj 


;SEEK SHIFT JOBBRA SECSHF 
:HOST AKTIV-KAPCSOLO 
3; HOST IRASKAPCSOLO 


ht et 


ri 


s; UNOLLOC REKORDSZAMLALO 
jAZ UTOLSO UNALLOC LEMEZ 
5AZ UTOLSO UNALLOC SAV 

5AZ UTOLSO UNALLOC SZEKTOR 


JJ és 


, .. S HIBAKAPCSÓLO 

5" TRÉAD-SZÉKTOR KAPCSOLO ; 
2. RERD MŰVELET "ések gek iz éke 
; WRITE MUVELET j d: vé 


1 
1 

5 

1 
a AZ UTOLSO DMA-CIM " Eg; 
1 S ATMENETI UTASITÁSREGISZTEÉR 
1 S VIRTUALIS LEMEZMUTÁTO " 
A BDOS SZAMARA t 

$ ;AZ ADATTERULET KEZDETE 

128 5A TARTALOMJEGYZEK 

St ,. ALLOCATION VEKTOR 0 

5.di Válás s ALLOCATION VEKTOR i 

18 ; CHECK VEKTOR 0 

16 "7" — CHECK VEKTOR i 


he AZ ADATTERULET VEGE 
$—BEGDAT;AZ ADATTERULET MERETE 


kus) 


6.8 Saját INPUT/OUTPUT rutin beépítése a BIOS-ba 


Az előző fejezetben közölt BIOS listából kiderül, hogy a PUNCH és a READER rutinok- 
hoz létezik ugyan ugróvektor, de a tényleges rutinok egyetlen RETURN utasításból állnak. 
A READER rutin híváskor egy CTRL-Z karaktert továbbít, mintha elértük volna a feldolgozan- 
dó szöveg végét. ! 
Semmilyen elvi: akadálya nincs azonban annak, hogy a rendszert saját READER rutinnal 
bővítsük. 

Hasonló a helyzet a PUNCH rutin esetében, ez is csak elvileg létezik, de felhasználhatjuk ezt 
a lehetőséget pl. egy interface-szel támogatott Centronics nyomtató illesztésére (I. a 7.1 
fejezetben). 

Mivel a 7-es és 8-as utasításkódok a $E00, ill. $F00 6510-es ugrási címeket használják, a saját 
rutinjaikat a 6510-es kódrendszerben kell megírni. 


A megírt rutint pl. a következőképpen hívhatjuk: 
PUNCKH: ;Egy karakter továbbítása a PUN-hoz: a Centronics nyomtatóra 


MOV A C Egy karakter továbbítása a PUN-hoz: a Centronics nyomtatóra 
STA DATA  ;az átviteli regiszterbe 


MVI A? A saját rutin kódja 
STA CMD 

CALL 106510. ;A 6510-es rutin hívása 
RET 


A 6510-es output rutint a $E£00-ás kezdőcímtől kell elhelyezni, ahol 256 byte áll rendelkezésre, 
de ez biztosan elegendő is, hiszen a rutin feladata mindössze annyi, hogy az adatokat a 
6510-es porthoz továbbítsa. 


A saját READER rutin hívása: 


READER: ;Egy karakter az RDR-ről 
MVI A8 A saját rutin utasításkódja 
STA CMD 
CALL 106510 ;A 6510-es rutin hívása 
LDA DATA  ;A karakter beolvasása 
ANI 7FH A paritásbit törlése 
RET 


A 8-as utasításkód alapján a rendszer az input rutint keresi, ahol szintén 256 byte-tal 
gazdálkodhatunk. Tetszőleges külső egységet (kazettás-, lemezegység stb.) hozzárendelhe- 
tünk a RDR rendszerperifériához, sőt, ha V24-es interface-t használunk, megoldhatjuk az 
alapgépek közötti adatforgalmat is. A READER rutin a továbbítandó szöveget ASCII kódban 
várja, és a szöveg végén egy CTRL-Z karaktert továbbít, általában ugyanis a programok (pl. 
a PlIP) a CTRL-Z-t tekintik a feldolgozás végét jelző karakternek. 
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6.9 Adatforgalom a CP/M programok és a CSSKHOdOrE 
BASIC között 


A CP/M operációs rendszer programjai áital előállított szöveges file-okat, ill. adatokat általá- 
ban nem használhatjuk a Commodore BASIC programok inputjaként. A BIOS.65 megfelelő 
részét módosítva azonban ezeket az egyébként csak CP/M módban eelérhető- file- okat a 
BASIC programok számára is hozzáférhetővé tehetjük. 

A CP/M rendszerben létrehozott file-okat kinyomtathatjuk a BIOS 65 .megfelelő OPEN és 
PRINT 4 utasításaival. Ha az OPEN utasításban az egységszámot megváltoztatjuk, az adatki- 
írás nem nyomtatóra, hanem az általunk kijelölt egységre, pl. a kazettára vonatkozhat. 
Ahhoz, hogy a rendszer a szalag fite-t megnyissa, 1-es másodlagos címet kell megadni. A DDT 
programmal módosíthatjuk a CP/M-et: 


DDT 


— SFAC7 


FAC7 07 01 


FAC8 20 . 


- SFADD 


FADD 00 01 


FADE Ag . 


— SFAE6 Ess AA 


FAEG 04 01 


FAE7 20 . ár 
- AC 


Módosítás után a AP vagy a PIP LST:— adatkiírások már nem a nyomtatót, hanem a kazettás 
magnetofont tekintik output egységnek. A képernyőn megjelenik a "press record play on tape 
üzenet és a képernyő színe sötétre vált. A teljes szöveg kiírása után nyomjuk le a CTRL-C-t, . 
majd melegstart közben a STOP és RESTORE billentyűket egyidejűleg. A gép ekkor a READY . 
üzenettel Commodore üzemmódban jelentkezik vissza. A CLOSE 4 utasítással zárjuk le a 
szalag file-t, majd a gép ki-/bekapcsolása után BASIC programmal olvassuk vissza. 


feet 


100 OPENI 
110 GETd 1, A$ 


200 IF STc 564 THEN 110 
210 CLOSE1 
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A karakteresen beolvasott adatokat (A$) Commodore üzemmódban igény szerint feldolgoz- 
hatjuk. 

Ha a CP/M file-okat gyakran használjuk Commodore üzemmódban, célszerű erre a célra 
programot írni, hogy ne kelljen minden esetben újra módosítani a rendszert. A programot az 
ED szövegszerkesztővel és az ASM assemblerrel. készíthetjük elt: 


ED- . .  SZALAGASM 


ORG 100H 
MVI A! 

STA OFAC7H 
STA OFADFH 
STA OFAEGH 
JMP 0 


A következő utasítással fordítsuk le a programot: 
ASM SZALAG. AAX 

Készítsünk belőle egy .COM file-t 
LOAD SZALAG 


A továbbiakban a rendszermódosítást bármikor megtehetjük a SZALAG nevű program 
segítségével. 

A fordított irányú adatátvitelhez, Commodore üzemmódból CP/M üzemmódba, egy kis trükkre 
van szükség. A szövegből vagy programból egy $1100 betöltési címmel ellátott program-file-t 
kell létrehoznunk. 

A betöltési cím a 280-as 100H, amely a TPA (Transient Program Area — átmeneti programterü- 
let) kezdőcíme. 


A következő BASIC program egy soros file-ból elkészíti a megfelelő programfile-t: 


BO REM ttititt PSD. atátátat 

4.4 

pe . 

199 INPUT "A FILE NEVE: ";N$ 

110 OPEN 2,8,2,N$ 

1290 OPEN 1,8,1,N$-4".CPM":REM A FILE MEGNYITASA 

150 PRINT$1,CHR$ (B) CHR$ ( 17) ; 1REM KEZDOCIM 

149 GETH2,A$:IF ST-64 THEN CLOSE 2:CLOSE 1:END a 
159 PRINTH1,A$:GOTO 140 s 
KESZ . 


A program betöltése előtt meg kell néznünk a program méretét (a tartalomjegyzék betöltésé- 
vel): i 


25." NEV -CPM PRG 
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A LOAD "NEV.CPM".8,1 paranccsal töltsük be a programot, majd a szokásos módon helyez- 
zük be a CP/M lemezt és indítsuk el a rendszert. 

A SAVE 25 NEV.TXT utasítással tárolhatjuk az eredeti BASIC szöveget CP/M üzemmódban. 
A 25-ös szám meghatározza a tároláshoz szükséges 256 byte-os blokkok számát. Tárolás 
után a kapott file-ból CP/M rendszer alatt feldolgozhatjuk az adatokat. : 
Ez az eljárás egy esetben okozhat problémát, ha a szövegfile kisznagybetűs üzemmódban 
készült. Ekkor a tároló BASIC program 140-es sorát meg kell változtatni; a beolvásott karakter 
helyett a megfelelő ASCII kódot kell az 1-es file-ba írni. 
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7. FEJEZET 


ILLESZTÉSI ÉS BŐVÍTÉSI LEHETŐSÉGEK 
A COMMODORE 64-ESEN 


7.1 Centronics nyomtató illesztése a számítógéphez 


A Commodore 64-esbe beépítettek egy olyan hardveres illesztőt, amelyet az operációs rend- 
Szer nem használ. Angol elnevezése (user port) is arra utal, hogy a gép használói szabadon 
rendelkezhetnek alkalmazásáról. A user port egy nyolc bites és két ún. handshake (kézfogó) 
vezetékből áll. A nyolc bit mindegyike külön kapcsolható, és input/output műveletekhez 
egyaránt alkalmazható. Az alábbiakban bemutatjuk, hogy miként csatlakoztatható egy 
Centronics nyomtató az alapgéphez a user porton keresztül. 


A folyamat röviden a következő: 

A byte-ot bitenként nyolc párhuzamos adatvezeték szállítja. Két handshake vezeték biztosítja. 
hogy az átvitel során adatok ne veszhessenek el. Mielőtt a gép egy byte-ot a nyomtatóhoz 
továbbítana, megvizsgálja, hogy a nyomtató készeg. áll-e az adat fogadására. Ezt a vizsgála- 
tot a BUSY (foglalt) vezeték végzi el. Ha a nyomtató készenléti állapotban van, a gép az 
adatot a porthoz továbbítja, és ezt a tényt a STROBE vezetéken át közti a nyomtatóval. 
A nyomtató átveszi az adatot, és mindaddig, míg fel nem dolgozta (tárolás, nyomtatás), a 
BUSY vezeték bitjét magasan tartja. Feldolgozás után megkezdődhet a:következő adatbyte 
továbbítása, és a folyamat addig ismétlődik, míg a gép be nem fejezi az adatok küldését. 


Hogyan programozható az interface? 

Ahhoz, hogy PRINT:34t utasítással a nyomtatóhoz adatokat küldhessüték, az adatátvitelt 
lebonyolító szoftvernek az operációs rendszerben kell elhelyezkednie. Etálsől adódik néhány 
probléma: 

A legtöbb Centronics nyomtató pl. ASCII karakterkészlettel dolgozik, ami nem azonos a 
Commodore 64-es karakterkészletével. Ahhoz tehát, hogy a nyomtató felismerje a hozzákül- 
dött karaktereket, konvertálnunk kell a gép kódrendszerét a nyomtátó kódrendszerére. 
Ráadásul időnként arra is szükség lehet, hogy a Commodore grafikussjeteit is felismerje a 
nyomtató, amelyek egyáltalán nem szerepelnek a karakterkészletében. Ezeknek a problémák- 
nak a megoldására készítettünk egy olyan vezérlő programot, amelyet kétféleképpen hasz- 
nálhatunk. Ha az OPEN utasításban nem adunk meg másodlagos címet, akkor az átvitel 
során a Commodore kódokat a program ASCII kódokká alakítja. Ha megadjuk a másodlagos 
címet, az adatok változatlan formában kerülnek át a géptől a nyomtatóra. Egységszámként 
2-est adtunk meg. Ezt az egységszámot általában az RS232-es interface foglalja le, de mivel 
az általunk készített program is a user portot használja, a kettő együtt semmiképpen nem 
működtethető, tehát a 2-es egységszám szabad. 

Egy program kinyomtatása a következő: 


OPEN 1.2 : CMD 1 : LIST 
Miután a kurzort visszakaptuk 
PRINT 3H1 : CLOSE1 


121 


utasítással zárjuk le a CMD üzemmódot és a csatornát. Ha grafikus karaktereket akarunk 
nyomtatni, az utasítás a következő lehet: 


OPEN 1.21 
PRINTd 1... jde Sza . 
CLOSE1 ize Era ; 


A nyomtató hardveres illesztéséhez mindössze -egy olyan kábelre van szükség, amelynek 
egyik vége a user porthoz, rnásik vége pedig a Centronics nyomtatóhoz csatlakozik. (A ve- 
zeték tűállását a programlista végén megadtuk.) Ezzel a vezetékkel csatlakoztassuk a nyom- 
tatót a géphez; kapcsoljuk be először a gépet, majd a nyomtatót! Töltsük be a gépi kódú 
programot, majd SYS 1244096 utasítással hajtsuk végre. 

Az alábbiakban közöljük a gépi kódú programot és BASIC betöltőjét. 


DB REM 363694 POD. 9636363t 

1.6 

s § 

190 : ú9..§ 1 " § CENTRONICS-INTERFACE A CBMH64-EN 

110 z: ; E 

128 : z ILLESZTES AZ "USER-PORT "-RA 

150 : j . vre JN ev gi 
149 s: e. ":AZ I/70 VEKTOROK MEGHATAROZASA ze 2 elt öv HOS 
1509 7 H 5 5 
290 : 0319 azé $51A 

210 : 031C OPENV xz 8412 jj í 
220 s: G31E CLOSEV az 14-42 

230 : 9520 CHKINY az 1412 

240 : 0322 CHKOUTV  §- 4-2 

269 : 0326 ; az 414 

270 : 0328 BSOUTV az m42 

2809 : 9328 XREG sz $97 3A RESISZTER TARCIME 

201 § H 

ZBZ i 5A PORT. MEGHATAROZASA 

285 s: Hi 

284 : DD9g0 az $DDOGg ; CIA2Z 

285 : DDO1 PORTA 5": áz 411 5PORT 

286 : DDOZ PORTB az 36-41 

287 : DDOS DRRA ez vi ; AÚDATIRANY 

288 : DDOD DRRB x7- xtr1D 

289 : DDOE IRC xz 36-41 ; MESGSZAKITÁST VEZERLO REBISZTER 
2909 : DDE LF z $B8 

291 : DDOE sA z $B97 

292 : DDOE FA z $BA 

293 : DDOE NMBFILES -— $98 

294 : DDOE LFTAB z $259 

295 s DDOE FATAB z 3253 

296 : DDE SATAB z $26D 

297 s DDOE SRCHFIL - $FSOF 

309 : ; 

310 s: :; INICIALIZALAS 

329 : 3 

330 : COg0 INIT ez $CDBN 

349 : COO9 A? 58 LDA HCOPEN 

3s90 : CO32 Ap CO LDY $2OPEN 

360 : CO94 BD 1A 05 STA  OPENV 

370 : COo07 .8C 1B 031 . STY OPENV-rI1 

389 : COOA A9 BB LDA HCCLOSE 

399 : COOC AD CB LDY 42CLOSE 

499 : COOE BD 1C 93 STA CLOSEV 

410 : COI1 BC 1D 03 STY ELOSEV-4i1 

420 : CGI14 A? Aa3 LDA d. CHKIN 

AZ : CG16 AD CB LDY 42? CHKIN 
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Co18 
CO1B 
CG1E 
Co2B 
co22 
CcCo25 
co28 
CoZ2A 
Co2zC 
Co2F 
Co32 
cCos4 
Co57 
cCgsa 
CgIe 
CosF 


ceyo 
Cg91 
Cg92 
0995 
€99756 


BD 
Ag 
2C 
Fo 
aD 
99 
8D 
Fa d 
gD 
60 


A6 
Fo 
20 
Do 
4€c 
AS 
Eg 
99 
4€ 
E6 
AS 
9D 
a5 
09 
9D 
AS 
9D 
C9 
Do 
18 
690 
cg 
4C 


20 
FO 
18 
69 
20 
BA 
48 


1E 
1F 
BA 
cg 
20 
21 
D1 
co 
26 
27 
FF 
03 
92 
04 
92 


o3 


1 


os 
03 


DD 


DD 


DD 


DD 


DD 


F5 


F6 


FG 


02 


02 


02 


F3 


FS 


FS 


Cg97 A5 BA 
Co99 C9? 02 
COB FO 03 


STA 
STY 
LDA 
LDY 
STA 
STY 
LDA 
LDY 
STA 
STY 
LDA 
STA 
LDA 
ORA 
STA 
RTS 


CHKINYV 

CHKINV-t1t 

tc CHKOUT 

42 CHKOUT 

CHKOUTV 

CHKOUTV-r1 

tc BSOUT § 
142 BSOUT 

BSOUTV 

BSOUTV-t1 

$SFF Va j 
DRRD ;KIIRAS A B PORT-ON 
DRRA 

4/1090 

DRRA ;KIIRAS A PAZ2-N 


1 


9; 

:KIIRAS HANDSHAKE-EL 

s ADATOK A B PORT-RA 

3A STROBE A FA2-ON 

3A BUSY AZ ICR SZERINT 


, 
AUSGABE  STA 
LDA 
TESTBUSY BIT 
BECG 
LDA 
ORA 
sSTA 
AND 
sTA 
RTS 


b 
r 
isi 
bad 


OPENERR  JMP 


CLOSE IJSR 


PORTB :AZ ADATOK KIIRASA 

4H/10000  ;A FLAG-KAPCSOLO BIT-MASZKJA 
ICR 

TESTBUSY 

PORTA 

$x109 za STROBE BEALLITASA 

PORTA 

$Z11111011 . ;A STROBE TORLESE 

PORTA " 


Li aj 3LOSIKAI FILE-SZAM 
OPENERR 

SRCHFIL ;5FILE-SZAM KERESESE 
445 

$F6FE $ FILE OPEN ERROR" 
MNBFILES  ;MEGNYITOTT FILE-K SZAMA 
io 

415 

$FGFB $ TOO MANY FILES ERROR" 
NMBFILES 

£.F 

LFTAB,X 

sa 


3; KESZ 
$F377 z TOVABB 
$FS14 5 LOGIKAI FILE-SZAM KERESESE 


; KESZ 
tF31F — ;5A FILE-PARAMETER BEALLITASA 


1030 : CO9D 4€ $D FZ2 JMP $FZ29D 3; TOVABB 

1949 : CGAD 4C Fi F2 JMP $FZ2ZFI A FILE-BEJEGYZES TORLESE 
1045 : ; 

1059 : COAZ 29 OF F3 CHKIN JSR SRCHFIL ;A FILE-SZAM KERESESE 
1969 : CXAG FO OZ BEG 445 

1070 : COAB A4C 01 F7 JMF $£F701 3; FILE NOT OPEN ERROR 
1080 : CYAB 209 1F FS JSR $F31F :A FILE-PARAMETER BERALLITASA 
1999 : COAE A5 BA LDA FA 

1109 : COBO C9 02 CP 82 

11109 : COB2Z DO 03 BNE 445 

1129 : COR4 4C ga F7 JMP $F70A 3; NOT INPUT FILE ERROR" 
kíző : ; 

11539 : COB7 4C 19 F2 JMP 3$F219 

1149 : COBA 209 OF F3 CHKOUT JSR SRCHFIL ;:FILE-SZAM KERESESE 
1159 : COBD FO 053 BEG 45 

11609 : COBF 4C 01 F7 JMP $F701 : FILE NOT OPEN ERROR" 
1178 s: CSC2 28 1í1F F5 JSR $F3ZIF 5FILE-PARAMETER BEALLITASA 
11809 : COC5 AS BA LDA FA 

11978 t CaOC7 E? az CMP HZ 

1299 : COC9 DO 03 BNE 645 

1219 : COCB 4C 75 F2 JMP $8F275 

1220 : COCE 4C SB F2 JMP $F25B 

rre Tá ; 

125309 : COD1 48 BSOUT PHA 

1240 : COD2 A5 9A LDA $£9A 5KIMENETI EGYSEG 

12509 : COD4 C? 02 EMP HZ 

1269 : COD6 FO OZ BEGD 445 

12709 : CODB 4€ CD F1 JMF $FICD 3 TOVABB 

1289 : CODB A5 B9 LDA SA ; MASODLAGOS CIM 

1299 : CODD 29 OoF AND 741111 

1399 : CODF DO 0A BNE OUT :NEM EGYENLO NULLAVAL 
1519 : COE1 86 97 STX XREG 

1529 : CEZ 68 PLA 

1530 : COE4 AR TAX 

1349 : COES5 BD F3 CD LDA TABLE,X :A KOD BETOLTESE A TABLAZATBOL 
1359 : COEB A6 97 LDX XREG 

1560 : COREA 24 :BYT 324 

1379 : CJEB 68 AUT PLA 

1580 : CAEC 48 PHA 

1399 : COED 29 49 CO JSR AUSGABE 5KIIRAS;:EGY KARAKTER KIIRASA 
1499 : COFO 68 PLA 

1410 : COF1 18 CLC 

1429 : COF2 609 RTS 

145390 : COFZ TABLAZAT- 4 

1449 : COF3 99 01 02 903 04 05 96 07 08 09 A OB OC OD 0E OF 

14508 s: CIGS 18 11 12 135 14 15 16 17 18719 1Aa 1B 1C 1D IE 1íF 

1460 s: CiII1S 28 21 22 25 24 25 24 27 28729 2 28 2C 2D 2E 2F 

14780 : CI253 598 51 S2 353 34 35 36 37 S8 39 SA SB 3SC 3D 3E 3F 

1489 : CIZ3I 49 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 

14708 5 C1453 78 71 72 73 74 75376 ZZMBETT 787B 7€ 7D SELF 

1599 : CIS5Z 609 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 

2918 2: CióS 708 71 72 753 74 75 78 77 ZET? 78378 7€ 7D 7E 7E 

1529 : C173 89 81 82 83 84 85 86 87 BB 89 8A BB 8C 8D 8£ 8F 

15508 : CIB 98 71 972 93 74 93.96 97 98 97 IR. TB 9C 9D TE 9F 

1549 : C193 Ag Al AZ AZ A3 A5 A6 A7 AB A? RA AB AC AD RE PF 

15590 : CiIA3 BO Bi B2 E3 B4 B5 B6 B7 B8 B9 BA BB BC BD BE BF 

1560 : CIB3 C9 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 

15780 : CICS 59 51 52 55 54 55 56 57 58 37 SA SB SC 5D DE DF 

1589 : CiIDS Eg E1 EZ ES E4 ES E6 E7 ESB E? EA EB EC ED EE EF 

15978 t CIES FB Fi FZ FS F4 FS Fő F?7? FB F? FA FB FC FD FE FF 
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A BASIC betöltőprogram: 


READ 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


KESZ -. 


0 REM tttt P6Gl. 
1 


IF S£22538502 THEN PRINT 
PRINT 


3€3€-1é 16 


FOR I-49152 TO 49650 


X:POKE I,X:S-S-4X:NEXT 
169, 88,160,1972,141, 26, 3,140, 27, 3,169,139 
168,192,141, 28, 5,140, 29, 3,169,163,160,192 
131, 39, 3,140, 31, 3,169,186,160,192,141, 32 
3,140, 33, 35,169,209,160,192,141, 38, 53,140 
ROL ESZT GZ ZSELÉ A S, SZÁZAS RZZDÜ [94 A 
14d. 2221, 965141 i 226i í69; LO AA: 155221 
DAN SZSVSÁZS; TOLZZÍ, 97 JA STAT, VO 221 46.251 
141, O,2Z21, 96,166,184,240, .5, 32, 15,243,208 
S. 76.254 246 166, 152.224, 10 144, 3, 76,251 
246,250,152,165,184,157, 89, 2,165,185, 9, 96 
157,189, 2,165,186,157, 99, 2,201, 2,208, 2 
96,ZO1, B, 76,117,243, 32, 20,2453,240, 2 
96, 32, 31,243, 138, 72,165,186,201, 2,240 
76.157 ,242, 70,241,242, 32, 15,245,240, 3 
1,247, 532, 31,243,165,186,2901, 2,208, 3 
18.247, 76, 255242, 524 I5,24A3,240, 3, 76 
1,247, 32, 31,243,165,186,201, 2,208, 3, 76 
117,242, 76, 91,242, 72,165,154,201, 2,240, 3 
76,205,241,165,185, 41, 15,208, 10,134,151,194 
179,189,243,192,166, 32, 64,192 
194, 24, 96, 0, 1, Mag Zs. Ő 
9, Ú20 15: 18, 19, 29 
21. 24, 25, SO, 31. 32 
554 Bős SZ 42, 43, 44 
a5, ag, 49, 54, 55, 56 
57, 59, 69, 61, 98, 99,100 
191,192,193,194,195,196,197,199,199,110,111,112 
113,114,115,116,117,118,119,129,121,122,123,124 
125, 94, 95, 96, 97, 98, 99,1990,101,192,103,194 
195,196,1907,198,199,119,111,112,113,114,115,116 
117,118,119,1290,121,122,123,124,125,126,127,128 
129,139,131,132,133,134,135,136,137,138,139,140 
141,142,1453,144,145,146,147,148,149,150,151,152 
153,154,155,156,157,158,159,160,161,162,163,164 
165,166,167,168,169,170,171,172,173,174,175,176 
177,178,179,189,181,182,183,184,185,186,187,188 
189,199,191,192, 65, 66, 67, 68, 69, 70, 71, 72 
73, 74, 75, 76, 77, 78, 7975 BO; Bi, 82, 83, 84 
85, 84, 87, BB, 89, 99, 91, 92, 935,222,223,224 
225,226,227,228,229,230,231,232,233,234,235,236 
237, 2538,259,240,241,242,243,244 ,245 , 246 , 247 , 248 
249,250,251,252,253,254,255 
"HIBA A DATA SORBAN... !!":END 
"OK... 


125 


A kábelkapcsolat a nyomtató és a user port között a következőképpen néz ki: 


USER - CENTRONICS 

. PORT 
A. GND siző 
B... FLAG.- BUSY, 0.11 
c ezan20 a 4 2 
D DT 3 
E D2. 4 
F D3 ; 5 
H D4 6 
d D5 7 
K D6 8 
3 D7 9 
M PA2 - STROBE 1 
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7.2 A számítógépek közötti adatátvitel 


Tegyük fel, hogy az Olvasónak van egy Commodore 64-es és egy CBM 8032-es gépe. 
Szeretné az egyik gazdag grafikus lehetőségeit a másik adattároló kapacitásával együtt 
érvényesíteni. Miért ne lehetne a 8032-esről érkező adatokat egy, a Commodore 64 grafikus 
lehetőségeit tartalmazó programmal feldolgozni! Vagy megfordítva; esetleg valaki a Commo- 
dore 64-esről érkező adatokat a 8032-es 80 oszlopos kijelzési lehetőségével szeretné megjele- 
níteni. Miért ne? ú ; 
Most bemutatunk egy olyan programot, amely lebonyolítja a két számítógép közötti adatfor- 
galmat. A Commodore 64-es partnere ez esetben egy CBM 8032-es számítógép, de lehetne 
tetszőleges külső egység, pl. Centronics nyomtató is. A program újabb példa a user port 
célszerű alkalmazására. 

Természetesen a két egységet hardveresen össze kell kapcsolni. Az összekötő vezeték 
tűállását a programlista után közöljük. 


A programban felhasznált változók: 


X Az érkező vagy továbbítandó karakter ASCII kódja 
TI Rendszeróra. Üteme: !/6o s. 
D$ Az érkező vagy továbbítandó teljes füzér. 


A CBM 8032-es érintett regiszterei: 


59457 A user port adatregisztere 

59459 A user port adatirányregisztere. Mint tudjuk, a user porton át egyaránt küldhetünk és 
fogadhatunk adatokat. Ezért minden bitre megadható az adatáramlás iránya. 

59468 Ennek a címnek az 5. bitje vezérli a user port CB2-es vezetékét. Továbbító üzemmód- 
ban az adatok érvényességét jelzi, fogadó üzemmódban pedig nyugtázza az adatok 
vételét. Ezzel kizárjuk az adatvesztés lehetőségét. 

59469 A cím 1. bitje visszaadja a CA1 vezeték állapotát. Továbbító üzemmódban biztosítja 
a várakozást a visszaigazolásra, fogadó üzemmódban az adatküldő ,érvényes" 
üzenetére. 


A Commodore 64-es tárcímei: 


59576 A cím 2. bitje vezérli a user port PA2-es vezetékét. Feladata azonos az 56468 címnél 
leírtakkal 

56577 A user port adatregisztere 

56579 A user port adatirány-regisztere 

56589 A cím 4. bitje visszaadja a user port FLAG vezetékének állapotát 
Feladata azonos az 59469 címnél leírtakkal. 
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A program dokumentációja: 


1000-1080 
1000 
1010 
1020 
1030 
1040 
1050-1060 


1070-1080 
2000-2090 


. 2000 
2020-2030 


2040—2050 


2060-—2080 


Továbbító rutin - 

Az adatirány-regisztert beállítjuk adatok küldésére 

A továbbító ciklus hossza azonos az átvitelre kerülő byte-ok számával 

Az I-edik byte-ot (D$ tartalmát) beírjuk az adatregiszterbe 

Az adat érvényességét 0 értékkel jelezzük 

Várakozó ciklus a fogadó egység visszaigazolására c 

Az érvényességet jelző érték ismét 1, és folytatódik az adatátvitel, ha még van 
továbbítandó adat. 

A user port nyugalmi állapotba kerül, és kilépünk a továbbító rutinból 

Fogadó rutin 

Várakozás az első byte-ra 

Az óra értékét O-ra állítjuk, és/vagy 2 másodperc várakozás, vagy a soron követ- 
kező byte fogadása Zajlik, vagy vége az adatátvitelnek. Az időhatárt a 2020-as 
sorban megváltoztathatjuk. A mi példánkban a 2020-as sorban lekérdezzük, hogy 
a TI több mint 120 időegységet tartalmaz-e, ami pontosan 2 s-nak felel meg 
(1204/s0 5). A 3 5-nak 180 időegység felelne meg. 

Várakozás az érvényességi üzenetre. 

Ha az adat érvényes, az érkező byte-ot hozzáfűzzük a D$ változó eddigi tartalmá- 
hoz. 

A visszaigazolást jelző vezeték értékét ismét 0O-ra állítjuk, majd várakozunk a 
következő karakterre. 


A rutinok felépítése nagyon egyszerű. Ha rendelkezésre áll a megfelelő kábel, és a két gépet 
összekapcsoltuk, minden megy a maga útján. 


A program gyakorlatilag két alapvető részből áll: a fogadó és a továbbító rutinból, amelyeket 
más programokban is felhasználhatunk. Ha az egységnek karaktereket akarunk küldeni; 
helyezzük el azokat a D$ változóban, majd hívjuk az 1000-es rutint. Ha adatokat fogadunk, 
hívjuk meg a 2000-es rutint, majd az érkező karaktert fűzzük hozzá a D$ változó eddigi 
tartalmához. Az alábbiakban két programlistát közlünk, egyet a C-64-es, egyet pedig a CBM 
8032-es gépre. A programok szerkezetileg hasonlóak, kivéve természetesen a user port címét: 
Még egy különbséget találunk a 2010-es sorban, ennek magyarázata is a user port eltérő 
kezelésében rejlik. 


0 REM ttittt POZ. d6itbéit 


1 : 
2 :t 


995 REM ADATATVITEL AZ "USER-PORT "-ON, SZUBRUT INGYUJTEMENY 
996 REM 6522-ES VALTOZAT A CBM8OS2-ES 59456-OS TARCIMEN 


7998 REM 


999 REM EGY FUZER TOVABBITASA 

1000 FOKE 59459,255:REM ADATIRANY KIMENET 

1005 POKE 57468,PEEK(597468) OR 224:REM CB2 HIGH 

1019 FOR I-1 TO LEN(D$) :REM D$ TOVABBITASARA SZOLGALO CIKLUS 
10209 X-ASC(MIDE(D$,I,1)):POKE 59457 ,X:REM ADATOK KIIRASA 
1030 POKE 59468,PEEK(59468) AND 223:REM CB2 LOW 

1040 WAIT. 59469 , 2: REM VARAKOZS AZ ADATOKRA 

1050 FPOKE 59468,PEEK(59468) OR 224:REM CB2 HIGH 

1060 NEXT 

1070 POKE 57457,0:POKE 59459,0:REM A PORT VISSZAALLITASA 
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1089 
1090 
1100 
1110 
1120 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
20970 
2080 
2090 


0 REI! 
4. a 

2 : 

995 

996 

998 

999 

10099 
1010 
1020 
1030 
1940 
1050 
1960 
1070 
1089 
10990 
1190 
1110 
1120 
2090 
2910 
2020 
2930 
2040 
2050 
2069 
2970 
2080 
2090 


Nézzün 


RETURN 

REM 

REM A D£: FOGADASA 

REM 

REM 

WAIT 579469 ,2:REM VARAKOZAS AZ ADATATVITEL MEGKEZDESERE 
D$-"":REM A D$ ELOKESZITESE 

TI$-"202000" 

IF TI$5:120 THEN 2090 

IF (PEEK(597469) AND 2)-0 THEN 2930:REM VARAKOZAS AZ ADATBYTE-RA 
X-PEEK (59457) : D$—D$t1CHR$(X) 

POKE 59746B,PEEK(59468) AND 223:REM CB2 LOW 

POKE 59468,PEEK(597468) OR 224:REM A FOGADO ALLAPOTA 
GOTO 20920 

RETURN 


M titx PG2/1. d6363tt 


REM AZ ADATATVITEL "USER-PORT "—ON , SZUBRUT INGYUJ TEMENY 
REM A 6526-OS VALTOZAT A CBM64-ES 56576-OS TARCIMEN 
REM 
REM EGY FUZER TOVABBITASA 

POKE 56579,255:REM ADATIRANY KIMENET 

FOR I-1 TO LEN(D$):REM A D$ TOVABBITASARA SZOLGALO CIKLUS 
XZASC(MID$(D$,I,1)):POKE 56577 ,X:REM ADATOK KIIRASA 
POKE 56576,147:REM PAZ LOW 

WAIT 56589, 16: REM VARAKOZAS AZ ADATOKRA 

POKE 56576,151:REM PAZ HIGH 

NEXT 

POKE 56577,0:POKE 56579 ,0:REM A PORT VISSZAALLITASA 
RETURN 

REM 

REM A D$ FOGADASA 

REM 

REM 

WAIT 56589 , 16: REM VARAKOZAS AZ ADATATVITEL MEGKEZDESERE 
D$-"":GOTO 2950:REM A D$ ELOKESZITESE 

TI$-"0000009" 

IF TI$2120 THEN 2990 

IF (PEEK (56589) AND 16)-08 THEN 2950:REM VARAKOZAS AZ ADATBYTE-RA 
X-PEEK (56577) : D$-D$1CHR$ (X) 

POKE 56576,147:REM PAZ LOW 

POKE 56576,151:REM PAZ HIGH 

GOTO 2020 

RETURN 


k egy példát a rutinok felhasználásának megvilágítására. Ha az összekapcsolt gépek- 


be a megfelelő programokat betöltöttük, írjuk be a küldő egységen a 


10 D$ — "TESZT" : GUSUB 1000 : END 


a fogadó egységen pedig a 


10G 


OSUB 2000 : PRINT D$ : END 


programsort. 


Indítsuk el a programokat, és nézzük meg mi történik. Az összekötő vezetéket az alábbi ábra 


szemlél 


teti. Célszerű kábelként egy 10 eres (egyenként 0,14-0,35 mm? keresztmetszetű) árnyé- 


kolt vezetéket használni. Az árnyékolást mindkét oldalon csatlakoztassuk a GND tűhöz. Az 
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általunk végzett kísérletnél a rendszer 5 méteres kábellel hibátlanul működött. Hogy ennél 
nagyságrenddel hosszabb vezeték esetében sem lép fel hiba, azt nem állíthatjuk, ugyanis 
ekkor a környezet zavaró hatását nem lehet kizárni (pl. elektromotor működése, mosógép, 
porszívó stb.). Három méteres kábel mellett az átvitel teljesen biztonságos. 


664 12345678 9101112 CBM 8032 
CESARE ú FSEG KEVÉKÉBNE ER MEN § vőesb) 
PA 2 M EZEL ASSE E Mzzee SZÉ ESETET M CA1 
PBÓ ( GANNT e ÉRSZ zett TE tb őzet ai re Dés BE se LESBE RNENÉ 3 PAD 

1 DES sze Z OG [e tséz tz zése ND) 1 
2 EL eza sit eséáá és egász ses zeséjzáásé 5E 2 
3 F area a RFT OF 3 
4 Te NRMRRSSSSE ssel NH Kek E SEAN E ESSZÉ el Le 4 
5 F RNBESSÉSESÉS SZESZ 1 AE ESB SMS ESÉSE ÉTÉ TE ves 5 
6 K —F————— ]— —— K 6 
7 (ÉÉÉÉ S eEEzzZZeeeZZNZZZZe————.—— see.—.zez.———mes. 7 
GND N ÉLNE N GND 


130 


7.3 A CP/M cartridge illesztése az expansion porthoz 
Esettanulmány 


Ebben a fejezetben bemutatjuk, hogy hogyan lehet a Commodore 64-eshez kiegészítő 
hardvert illeszteni az expansion porton keresztül. A kiegészítő hardver jelen esetben egy CP/M 
cartridge, amelyet a Commodore cég fejlesztett ki. 

Mi is a CP/M cartridge? 

A CP/M operációs rendszer hardveres változata, amely tartalmaz egy 280-as mikroprocesz- 
szort és egy olyan logikai egységet, amely megteremti a processzorok közötti kommunikációs 
lehetőséget. Illesztésével a Commodore 64-esen futtathatók a CP/M szoftvertermékek. 

Az alábbiakban ismertetjük a két processzor hardveres összekapcsolását, a műveleti egysé- 
gek működését és a cartridge vázlatos kapcsolási rajzát. A magyarázatok megértéséhez az 
Olvasónak nem kell hardveres szakembernek lennie. 

A legfontosabb szerepet az expansion port vezetékei töltik be: 


CDO-7  Arendszerbusz adatvezetékei 
Ezeket a C64-es 6510-es processzora csak addig vezérelheti, amíg a DMA— 1 és a 
BA-—1. Ez a továbbiakban igen fontos tény. 

CAO-15 A rendszerbusz címvezetéke. Erre ugyanaz érvényes; mint az előzőre. 

1[/01 A vezeték értéke 0, ha a $DE00 — $DEFF (56382—57087) tártartományban valamilyen 
művelet zajlik. 

RES Ha értéke 0 (általában bekapcsoláskor), akkor minden hardveregység alapállapot- 
ba kerül. 

DMA Bemeneti vezeték. Ha értéke 0, a 6510-es felfüggeszti a működését, átadva a 
rendszerbuszt a külső vezérlésnek. 


BA Ezen a vezetéken jelzi a C64-es videovezérlő, hogy hozzáfér a tárhoz (BA- 0). Ez 
idő alatt a rendszerbuszt sem a 6510-es, sem a port nem használhatja. 
502 A rendszerütem, amely a C64-es műveleteit összehangolja. Az együttműködés érde- 


" kében ez az ütem érvényes a CP/M 2780-as processzorára is. 


Kezdjük a folyamatok leírását a nyugalmi, azaz bekapcsolás utáni állapottal. A 7280-as 
BUSREG vezeték ugyanazt a szerepet tölti be, amit az AEC vezeték a 6510-es processzornál, 
azaz ha értéke 0, a 7280-as felfüggeszti a munkát, és felszabadítja a rendszerbuszt. Amikor 
a készüléket bekapcsoljuk, a RES vezeték értéke egy pillanatra 0 lesz, és az FF flip-flop 
visszabillen eredeti állapotába (O — 0, O — -1). 

Ezzel a BA értékétől függetlenül az ÉS kapu kimenete 0 lesz. Ennek az a következménye, hogy 
az A1, A2 és D pufferek lezáródnak, és a rendszerbusz vezérlése megszűnik. A BUSREO — 0, 
tehát a 7280-as nyugalmi állapotban marad. Az elmondottakból kitűnik, hogy a rendszer 
tevékenységét az FF flip-flop és a BA jel (logikai ÉS kapcsolattal!) együttesen határozzák meg. 
Ha az FF értéke magas (O — 1,-O — 0) és ugyanakkor BA — 1, a BUSREG értéke is 1 lesz, 
és így a 2780-as működésbe lép. Ettől kezdve a C64-es a megszokott módon dolgozik, 
mindaddig, amíg végre nem hajtunk egy POKE 56892, 1 utasítást. Ahogyan az alábbi blokksé- 
mából látjuk, ez az utasítás aktivizálja az I/01 vezetéket, ettől az FF flip-flóp átbillen, és mivel 
a BA — 1, a 280-as működni kezd. Ezzel egyidejűleg a DMA — 0 miatt a 6510-es kikapcsol, 
és a C64-es működésképtelen lesz, hiszen nincs a tárban olyan rendszerprogram, amit a 
280-as képes lenne helyesen végrehajtani. 

Hová kell elhelyezni a 280-as programokat? A 6510-essel ellentétben a 7280-as indításakor 
(RES — 0) a programok futtatását a 0-ás tárcímen kezdi. Az első konfliktust tehát az okozza, 
hogy a 0-ás címen a 6510-es I/O port található, vagyis olyan paraméterek, amelyek a rendszer 
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működéséhez feltétlenül szükségesek. Ugyanakkor a 280-as ezen a tárterületen futtatható 
programot keres, és nem várhatjuk tőle, hogy más tárcímhez forduljon. Ezt a problémát a 
CP/M modul nagyon elegánsan oldja meg. A blokksémán látunk egy ADD-vel jelölt műveleti 
egységet, amelyben van egy négy bites összeadó. Ez az egység két négy bites bemenettel 
rendelkezik, és ezek összegét továbbítja a kimenetre. Az összeadó kimenete a négy legna- 
gyobb helyiértékű címbithez csatlakozik. Az egyik bemenetére érkeznek a 2780-as címvezeté- 
kei, a másik bemenete konstans 1. Így a kimeneten a négy felső címbit 1-gyel növelt értéke 
adódik minden műveletnél. 

Az egész (2 byte-os) címet ez a művelet $1000-rel (4096-tal) növeli. Ha tehát a példánknak 
megfelelően a 2780-as kiadja a 0-s startcímet, azaz ott keresi az első végrehajtható utasítást, 
az összeadási művelet elvégzése után a tényleges startcím $1000 lesz. Erre a területre viszont 
nyugodtan elhelyezhetjük a 7280-as rutinokat, hiszen ezt a területet a 6510-es nem használja. 
A fentiekből az is kiderül, hogy a $F000 (61440) 280-as cím tulajdonképpen a 0-ás címnek 
felel meg, hiszen a négybites összeadás az átvitelt nem veszi figyelembe. 

Mindezek alapján nézzük meg, mi történik bekapcsolás után! Betöltődik egy startporogram 
($1000-től), az FF flip-flop átbillen, és a 280-as működni kezd, azaz elindítja a $1000 címen 
elhelyezett programot, ami többnyire egy CP/M betöltőprogram. 

Betöltés után a rendszer fogadja és végrehajtja a használó utasításait. Természetesen a 
fentiek ismeretében saját programokat is elhelyezhetünk a $1000-es címen, és így a 280-as 
processzort tetszőleges, általunk kijelölt feladatok végrehajtására kényszeríthetjük. 
Általában az ilyen programok megírásához szükség van a C64-es hardvercímeinek pontos 
ismeretére, hiszen a programok többsége input/output műveleteket végez, amelyek valami- 
lyen külső egységre hivatkoznak. Nem szabad közben elfeledkeznünk az offset (viszonyla- 
gos) címzésről sem. Ha például az adatokat a user portra akarjuk továbbítani, a 7280-as 
programban a $CD01 (52481) címet kell kijelölni, mivel a 6510-es processzor user port címe 
$DD01 (56577). A különbség mindig $1000 (4096)! 

Hogyan térhetünk vissza a 280-as üzemmódból? Nagyon egyszerűen. Ha a BASIC interpretert 
betöltöttük, adjuk ki a POKE 52736,0 utasítást az FF visszabillentéséhez. Ekkor a BUSREO 
értéke 0 lesz, így a 280-as felfüggeszti a működését és a DMA — 1 miatt a 6510-es bekapcsol 
és ott folytatja a munkát, ahol abbahagyta. A POKE utasításban szereplő címen természete- 
sen a valódi címnél mostis 4096-tal kevesebbnek kell lennie, hiszen az ADD művelet hozzáad- 
ja ezt az értéket. A POKE utasítás végrehajtásával még semmit sem oldottunk meg, hiszen 
most a 6510-es nem talál a tárban végrehajtható programot, így bár bekapcsol, mégis 
működésképtelen. 

Térjünk ki még néhány szóban a BA vezeték szerepére. A BA olyan segédjel, amely az 
adatbusz forgalmát szabályozza. Értéke meghatározó a CP/M-re nézve, hiszen logikai ÉS 
kapcsolatban van az FF flip-floppal, tehát az utóbbi értékétől függetlenül a 280-as abba- 
hagyja a működését, ha BA—0. 

A BA vezeték fontos szerepet tölt be a vezérlésben. Értékét a C64-es videovezérlője állítja be. 
Miután a képernyőtár a szokásos helyén maradt, és azt a videovezérlő ciklikusan felfrissíti, 
ez idő alatt a rendszerbuszt senki sem használhatja. Ha a gép a megszokott rendszerben 
dolgozik, a rendszerbuszt folyamatosan használja, tehát a videovezérlőnek ügyesen ki kell 
használnia azokat a pillanatokat, amikor a rendszerbusz szabad. (Ha sprite-okkal dolgo- 
zunk, még a szokásos üzemmódban is előfordulhat időzavar.) 

A 280-ast azonban, minthogy használja a rendszerbuszt, értesíteni kell arról, hogy a videove- 
zérlő működési ideje alatt függessze fel a munkát. Erre a célra szolgál a BA vezeték. 

A 2780-as és a 6510-es processzorok interaktív munkáját szándékosan leegyszerűsítve ábrá- 
zoltuk. A folyamat lényegét az ábra alapján tökéletesen meg lehet érteni, a részletezés pedig 
csak zavarná az Olvasót. 
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CAg-7 A! 


FF 
[701 8 
make RES 
ES 8]. 
DMA 
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7.4 Szintetizátor sztereóban 


Aki gyakran használja a C64-esbe beépített szintetizátort, bizonyosan sokat bosszankodott 
már a tv-készülék rossz hangminőségén. 

Ahhoz, hogy jobb hangminőséget kapjunk, egy jó minőségű sztereóberendezést kell csatla- 
koztatnunk a C64-eshez. A csatlakoztatás nem olyan egyszerű, ugyanis a szintetizátor egy 
db kimenetét fel kellene osztanunk a sztereóberendezés két csatornájára, holott a hangjele- 
ket a szintetizátor együtt kezeli. Osszuk fel a frekvenciatartományt két részre, úgy, hogy az 
alsó és felső tartomány határa a 300 Hz-es frekvencia legyen. Ezzel tulajdonképpen a szin- 
tetizátor által átfogott hallható sávot középen választjuk szét, nevezetesen három alsó 
(36 Hz-ig terjedő) és négy felső (4800 Hz-ig terjedő) oktávra. 

A felosztást két kettős T-szűrővel oldjuk meg, amelynek karakterisztika-meredeksége 
6 dB/oktáv, határfrekvenciája pedig 300 Hz (aluláteresztő szűrő), ill. 3 kHz (felüláteresztő 
szűrő). 

A határfrekvenciát megfelelő kondenzátorral ki-ki ízlése szerint megváltoztathatja, ha közben 
az ellenállás értékét nem változtatja meg, ami a csatlakoztatott készülék impedanciájától 
függ. 

Egy adott F határfrekvenciához a szükséges kondenzátor értékét (C) a C— 1/(3300£F), ill. 
megfordítva az F— 1/(3300£C) képlet alapján számíthatjuk ki. 

A gyártó cég laboratóriumában végzett kísérletek alapján, az általunk megadott adatok 
optimális hangminőséget biztosítanak. 

A 3 dB/oktáv karakterisztika-meredekségű szűrő mellett nincs szükség az R2, C2, C4, R6-os 
szerkezeti elemekre, a hangszórók közötti akusztikai tartomány még így is széles lesz. 

A szűrőket egy kis darab lyukraszteres lemezre építsük, majd csatlakoztassuk a sztereóberen- 
dezéshez. Ha a lemezt a kábelvégekkel együtt beöntjük szilikonkaucsukba, esztétikailag is 
kifogástalan megoldáshoz jutunk. 

Most bemutatunk egy olyan programot, amely háromszöghullám formájú, , suhanó" hangot 
hoz létre, miközben kiválóan lehet hallani, hogyan vándorol a hang az egyik hangszóróból 
a másikba. 

Összetettebb, felhangban gazdagabb hangzatoknál, például fűrészfog hullámtormával az 
egyik hangszóróban a felhangok, a másikban pedig az alaphangok hallhatóak (300 Hz 
alatt), és a hangzás lényegesen terjedelmesebb lesz. 


0 REM 363633 POZ. 363titje 

pg : 

s a 

10 S1:55272 

29 s$2-54279 

30 Ss3-54286 

60 RS-54295 

70 PL-54296 

89 POKE S1-44,9:POKE S244,9:FOKE 5S5344,0 

100 A-9:D-9:S-9:R-9:H-30 

119 POKE RS,O:POKE FPL,15 

120 POKE SZ34t5,164AtD:POKE S3t6,168tStR 

139 POKE S3-44,17 

140 FOR I-8 TO H:POKE S36$1,PEEK(54300) : NEXT I 
159 POKE S3t4,16 

160 FOR 1-9 TO Rx4:POKE S341,PEEK(54500) : NEXT I 


Az alábbi kapcsolási rajzot a megértés érdekében leegyszerűsítettük. A sztereó-oldal dugós 
csatlakozóját a phono bemenethez terveztük. 
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C 64 Ri R2 R3 STEREO 
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8. FEJEZET 
ADATFELDOLGOZÁS 


Bevezetés 


A legtöbb számítástechnikai feladatban későbbi feldolgozásra bizonyos adatokat tárolni kell. 
A programozás legnehezebb része általában a rugalmas, célszerű adatkezelés. 

Teljesen mindegy, hogy milyen programnyelven dolgozunk (BASIC, FORTRAN, PASCAL stb.), 
az adatkezelés minden nyelven egyránt fontos szerepet játszik. 

Ebben a fejezetben betekintést nyújtunk a C64-es adatfeldolgozási adottságaiba. Az elméleti 
leírásokat mindvégig gyakorlati feladatokkal illusztráljuk, bízva abban, hogy ez elősegíti a 
könnyebb megértést. Először ismertetjük az adatfeldolgozás legfontosabb alapfogalmaltt. 


FILE 


Manapság az adatfeldolgozási szakkifejezések (file, rekord, mező stb.) szinte hétköznapi 
fogalmakká váltak, de még mindig nincs mindenki tisztában a jelentésükkel. Mit takar a , file" 
fogalom? Magyarázatként nézzünk egy példát: legtöbb intézményben a kézi nyilvántartásra 
kartonrendszert dolgoznak ki. A könyvtárban a leltárba vett könyvekről egy-egy kartont 
készítenek, amelyen a könyv összes lényeges adata szerepel. Általában a karton-rendszerű 
nyilvántartásokban a nyilvántartott tárgyak, személyek legfontosabb ismertetőjegyeit, azono- 
sító adatait tüntetik fel. A könyvtári példánál maradva, a könyv kartonjára felvezetik pl.; hogy 
az adott könyv melyik kölcsönzőnél van és mennyi ideig. 

A kartonokat meghatározott rendszer szerint tárolják, leggyakrabban abc-sorrendben, eset- 
leg leltári szám szerint, vagy a leltárbavétel dátuma szerint. A könyvtári példában az egyes 
könyvek adatait tartalmazó, adott sorrendben tárolt kartonok összessége a tulajdonképpeni 
katalógus. 

A file a katalógussal analóg fogalom, amely a kartonokhoz hasonló egységekből, ún. 
rekordokból áll, és az egyes rekordok éppúgy, mint a kartonok, az egyedekre vonatkozó elemi 
információkat tartalmazzák. 

A file rendkívüli előnye a kartonrendszerrel szemben a hihetetlen rugalmasság, a kis helyigény 
és a rendkívül gyors kezelhetőség. Ma már a mikroszámítógépek tárkapacitása is meghaladja 
az 1 millió karaktert. Vajon hány kartonra lenne szükség ekkora információtömeg nyilvántar- 
tására? 


REKORD 


A rekord fogalma a fentiek alapján már világos. A kartonrendszer számítógépes megfelelője 
a file, a karton megfelelője a rekord. Az adott nyilvántartás minden egyedének megfelel egy 
rekord, amely az adott egyedre vonatkozó összes elemi információt tartalmazza. A rekord 
elemi részei a mezők. 
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MEZŐ 


Angolul: field. Lassan kiderül, hogy a file, a rekord és a mező fogalmakat csak együtt tudjuk 
értelmezni. Visszatérve a kartonokra, a kartonokon szereplő egyedi (egyes) információt a 
számítógépesek adatmezőnek nevezik. A három új fogalmat a következőképpen szemléltet- 
hetjük: 


FILES REKORD MEZŐ 


Ha lentről felfelé:építkezünk, azt mondhatjuk, hogy a rekordot összetartozó mezők, a file-t 
: Összetartozó rekordok alkotják. 

Tekintsünk most egy olyan nyilvántartást, amelyben egy munkahely dolgozóinak nevét és 
lakcímét tároljuk: 


FILE  : CIMFILE 
MEZO MEZO MEZO MEZO MEZO 
vezetéknév " keresztnév város utca házszám 
1.rekord Valentínyi Zoltán Gödöllő Kossuth 12 
2.rekord Polgár Szilárd Göd Vas 13 
3.rekord  Turcsányi Attila Üllő Szép 14 


A címfile egy egysége az egy adott személy adatait tartalmazó rekord. Ebben a nyilvántartás- 
ban minden rekord öt mezőből áll, az első mező pl. a vezetéknév. 

Az alapfogalmak tisztázása után betekintést nyújtunk az adatkezelés programozásába, 
illetve az adattárolás különböző módszereit ismertetjük. ő 
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8.1 Kazettás egység - lemezegység 


A Commodore 64-es gépen az adatok tárolására két lehetőség kínálkozik: adattárolás 
kazettás egységen, ill. adattárolás lemezegységen. 

Mi a különbség a két háttértároló között? Mikor melyiket válasszuk? Hogy ezekre a kérdések- 
re választ kapjunk, tegyünk egy kirándulást az időben visszafelé, az adatfeldolgozás kezdeti 
időszakára. 

Néhány évtizeddel ezelőtt a , floppy" vagy ,mágneslemez" fogalmak teljesen ismeretlenek 
voltak. Abban az időben az emberek nem találtak olyan eszközt, amelyen információt 
"tárolhattak volna úgy, hogy az bármikor visszanyerhető legyen. (Eltekintve természetesen az" 
információ szöveges vagy szimbolikus tárolásától.) ; ő j 
Ezt az eszközt ma általánosan adathordozónak nevezhetjük. Az első mai értelemben vett 
adathordozó a lyukkártya volt. Ez a viszonylag olcsó megoldás azzal az óriási hátránnyal 
járt, hogy bonyolult berendezéseket (nevezetesen kártyalyukasztót, ill. kártyaolvasót) kellett 
készíteni az információ tárolására és visszanyerésére. A berendezések mechanikus elven és 
ebből adódóan meglehetősen lassan működtek. Minthogy az idő előrehaladtával mind 
biztonságosabb és gyorsabb adattárolásra volt szükség, a szakemberek újabb megoldáso- 
kat kerestek. Az eredmény a mágnesszalagos adattárolás, amely ma a személyi számítógépe- 
ken (kazettás formában) és a nagyszámítógépes rendszereken egyarárit használatos, és az 
alapelv mindkét rendszernél ugyanaz, csak a méret különböző. k 

A mágnesszalagos adattárolás elve rendkívül egyszerű. A Commodore 64-eshez csatlakozta- 
tott külső egységek egy azonosító számmal vannak ellátva. A kazettás egység száma az 1. 
Először nézzük meg, hogy lehet az adatokat a szalagra felírni. Írás előtt a következő utasítás- 
sal egy file-t kell megnyitni a szalagon: 


OPEN 1, 1, 1, "CBM. 64 FILE" 


Az első 1-es a C64-es számára megadott file-szám. Ha ugyanis egyszerre több file-lal 
dolgozunk, azokat egy ún. logikai file-számmal (1-től 255-ig) meg kell különböztetnünk 
egymástól. 

Ha a kazettás egységen megnyomjuk a RECORD és a PLAY gombot, a Commodore 64 
fejlécet ír fel a szalagra. Ha egy file-t írunk fel a szalagra, a fejléc csak a file nevét, ha 
programot írunk fel, a program nevén kívül a kezdőcímét is tartalmazza. Ez az ún. program-, 
ill. file-fej kétszer egymás után kerül fel a szalagra. A fej felírása után a szalag megáll, majd 
következik a program vagy file tárolása. Ha az OPEN utasításban 2-es másodlagos címet 
használunk, a rendszer a file neve mögé EOT (End of tape — szalag vége) jelet Ír, ami a 
Commodore 64-esnél azt jelenti, hogy a szalagra már nem lehet tovább írni: 


OPEN 1, 1, 2, "CBM 64 FILE" 
A szalagra felírt file-t a következő utasítással nyithatjuk meg olvasásra: 

OPEN 1, 1, 0, "CBM 64 FILE" 
Az utasítás hatására a Commodore 64 mindaddig keresi a file nevét a szalagon, míg meg 
nem találja, vagy míg szalag vége (EOT) jelet nem érzékel. 


FONTOS: a Commodore 64-es a szalagra írás előtt nem keresi meg az OPEN-ben szereplő 
file-nevet, hanem a szalag pillanatnyi állásáról kezdi a felírást. Ez azt jelenti, hogy a file-okat 
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célszerű külön szalagokon tárolni, egyébként ugyanis könnyen előfordulhat, hogy akaratla- 
nul felülírunk egy számunkra fontos adathalmazt. 

A háttértárolók fejlődésének következő állomását a mágneslemez jelentette. A fejlődés egy 
olyan fázishoz ért, amikor a mágnesszalagos adattárolás már nem elégítette ki az igényeket, 
technikailag ismét új megoldásra volt szükség, és az új megoldást a mágneslemez jelentette. 
A Commodore 64-eshez több lemezegységet lehet kapcsolni. Az adathordozó ebben az 
esetben a hanglemezhez hasonló, de mágnesezett lemez, amely ősétől alapvetően abban 
különbözik, hogy írni is lehet rá. A lemezre írás, ill. lemezre olvasás szintaxisa: 


OPEN 2, 8, 2, "0: CBM 64 FILE, S, W" — ill. 
OPEN 2, 8, 2, "0: CBM 64 FILE, S, R" 


Mindkét utasításban az első 2-es a Commodore 64-es által használt belső file-szám, a 8-as 
a lemezegység száma, a második 2-es pedig az ún. csatornaszám. Az idézőjelek között álló 
szöveg rendre a következőket jelenti: a 0 — a meghajtószám (kettős meghajtónál 0 vagy 1), 
ezt követi a fiie neve, majd az S a file típusára utal (jelen esetben soros file-típusra), végül 
az R, ill. a W a READ és a WRITE rövidítése (READ olvasásnál, WRITE írásnál). 


A lemezes és szalagos háttértárak közötti különbség: 


— Költségek 

A kazettás egység jóval olcsóbb a lemezegységnél, bár az utóbbi időben a lemezegység ára 
is jelentősen csökkent. Az árkülönbözetet ellensúlyozza az adattárolási kapacitás; egy leme- 
zen 170 000 karakter tárolható, míg ugyanennyi adatot kb. négy db, C-60-as kazettán tudunk 


elhelyezni. 


— Elérési idő 

Ebben a vonatkozásban nagyságrendbeli különbség van a kétféle háttértároló között. Míg 
a mágnesszalagról egy 10 kbyte-os programot 200 s alatt tudunk betölteni, addig lemezről 
20 s alatt. Ugyanilyen eltérést tapasztalhatunk a soros file-ok olvasási sebességét illetően. 
Egy 50 címet tartalmazó soros file-t, amelyben címenként 100 betűt/jelet tárolunk, szalagon, 
180, lemezen 18 s alatt tudunk végigolvasni. 


— Eltérési módok, programozhatóság 

Míg a szalagon a file-okat és a programokat csak sorosan tárolhatjuk, a lemezen közvetlen 
hozzáférésű és ún. relatív file-okat is létrehozhatunk, amelyek a soros tárolásnál jóval 
rugalmasabb adatkezelést biztosítanak. 


Az összehasonlításból azt a következtetést vonhatjuk le, hogy a kazettás egység kisebb 
anyagi befektetést igényel, és a kezdők számára kiváló háttértároló eszköz. De mindazok 
számára, akik üzleti célból vásárolják meg a számítógépet, előbb-utóbb elengedhetetlenül 
fontos lesz a kényelmes, gyors adattárolás, amelyet csak a lemezegységgel lehet megoldani. 
A következőkben először a kazettás egységen történő adattárolás technikai elemeivel ismer- 
kedünk meg, majd bemutatjuk a különböző elérési módokat és file-típusokat. 
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A kazettás egység — hogyan kerülnek fel a bitek a szalagra? 


A következőkben arra szeretnénk rávilágítani, hogy az információ elemi egységeit fizikailag 
hogyan tároljuk a szalagon. A téma jellegéből adódik, hogy a magyarázatok során nem 
kerülhetjük el a műszaki vonatkozásokat. 


Az információ (bit) tárolásának Commodore 64-esen alkalmazott módszerét PPM-nek neve- 
zik. A PPM a PULSE POSITION MODULATION rövidítése, ami azt jelenti, hogy a Commodore 
64, éppúgy mint fiatalabb testvérei, a digitális jeleket nem hangfrekvenciás jelek formájában 
írják fel a szalagra, hanem közvetlenül. 

Az információt három különböző hosszúságú (H— hosszú, R— rövid, K— közepes) digitális 
jel kombinációjából képzett három összetett jel ábrázolja, amelyek jelentése: 


HHKK-BYTE 
KKRR —1 
RRKK —0 


A jelkombinációkból az A betű pl. a következőképpen állítható elő a szalagon: 
HHKK  KKRR  RRKK RRKK RRKK RRKK RRKK KKRR RRKK  KKRR 
BYTE 1 0) 0 f0) 0 [0 1 [0 1 
BIT dt [0 1 2 6) 4 5 6 7 paritás 


A tárolt adathalmaz szerkezete a szalagon: 


Program File 

programfej file-fej 

kezdő-, végcím, név név 

programfej (ismétlés) file-fej (ismétlés) 
program (egy blokk) adatblokk 

program (ismétlés) adatblokk (ismétlés) 
utolsó blokk utolsó blokk 


A fej (header) felépítése: 


Program File 

kezdőcím (XXXX) kezdőcím (0000) 

végcím (XXXX) végcím (0000) 

programnév (16 karakter) file-név (16 karakter) 

kitöltő karakterek (a pr. névben) kitöltő karakterek (a file-névben) 


Az adatblokk felépítése: 
kb. 2 s üres hely 
9 byte visszaszámlálás (count down) ($89, $88, $87, $86, $85, $84, $83, $82, $81) az első 
adatblokknál 
($09, $08, $07, $06, $05, $04, $03, $02, $01) ismétlésnél 
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Adatok 

kontrollösszeg (EXOR művelet a teljes adathalmazon) 
végjel (HHRR, RRRR, RRRR, RRRR, RRRR) 

kb. 0.16 s üres hely 


Amint azt már említettük; : minden Commodore típusú gép azonos információ ábrázolási 
módszerrel" dolgozik. Ennek: ellenére a VC-20-as és a C64-es közötti adatcsere mégsem 
lehetséges, mivel a két géptípus eltérő órajel-frekvenciával dolgozik. A VC-20-as óraüteme 
nagyobb a CBM óraüteménél, a CBM üteme pedig nagyobb a Commodore 64-es üteménél. 
A VC-20-on, ill. a C64-esen elkészített programok nem futtathatók a nagy CBM készülékeken, 
de megfordítva szerencsére nem ez a helyzet, a két kis gép , megérti" a CBM gépeken tárolt 
programokat (file-okat). A VC—20-on megírt programokat vagy tárolt file-okat először be kell 
töltenünk egy CBM gépbe, majd ismét tárolnunk kell a CBM kazettás egységén. Az így kapott 
szalagot a VC-20-as és a C64-es egyaránt tudja értelmezni. Természetesen a programokat 
a géptípusnak megfelelően meg kell változtatni (pl. ki kell hagyni a C64-es vezérlőkaraktereit, 
módosítani kéll/a:POKE-: utasítások argumentumait stb.). Sajnos: eddig még nem tudtunk 
foglalkozni a C64-es és a VC-20-as gépek közötti programcsereé szoftveres megoldásával. 
Ha az Olvasónak van ebben. a témában hasznos ötlete, szívesen vesszük, ha azt közli velünk. 


Mgvis 
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8.2 Az adatfeldolgozás alapelve: a soros file 


Előzőleg áttekintettük az adathordozók fejlődéstörténetét. A következő fejezetekben a mág- 
nesszalagos és mágneslemezes adattárolás részleteivel foglalkozunk. A két tárolási lehető- 
ség közötti különbség jól szemlélteti majd az alapvető adatkezelési eljárások közötti különb- 
séget is. Ebben a fejezetben a soros (szekvenciális) tárolással foglalkozunk. 

A ,soros" megjelölés arra utal, hogy az adatok, ill. a rekordok a file-ban egymást követően 
sorban vannak elhelyezve, ugyanúgy, ahogyan a zeneszámok a magnetofon szalagon. 
Amikor megindítjuk a hangfelvételt, a szalag attól a helytől kezdve rögzíti a zeneszámot, ahol 
éppen állt. Valahányszor ezt a darabot akarjuk meghallgatni, visszajátszáskor a lejátszófejet 
ugyanerre a pozícióra kell állítanunk. 

A mágnesszalagos adattárolás alapelve nagyon hasonlít a zeneszámok tárolásának elvéhez. 
Sajnos minden adathalmazhoz meg kell jegyeznünk azt a szalagpozíciót, ahol a rögzítést 
megkezdtük, egyébként ugyanis hosszú órákba telne, amíg valamit megtalálunk a szalagon. 
Ennél nagyobb gondot jelent, ha nem egy file-t, hanem azon belül egy rekordot akarunk 
megkeresni. Az teljes képtelenség lenne, hogy a rekordok kezdetének szalagpozícióját is 
feljegyezzük, ennél már a lyukkártyarendszer is jobb. Egyetlen megoldás, ha a file elejétől 
indulva egyenként elolvassuk a rekordokat, megvizsgáljuk, hogy az éppen beolvasott rekord 
azonos-e a keresettel és ha nem azonos, folytatjuk az olvasást. Ha például egy 2000 rekordot 
tartalmazó címfile-ban egy bizonyos KOVÁCS urat keresünk, feltehetően lesz időnk néhány 
kávé elfogyasztására, esetleg egy kis sétára is, amíg a keresett cím megkerül. Jobban tesszük, 
ha a kazettás egységen viszonylag kisebb adathalmazokat tárolunk, amelyre ez a készülék 
kiválóan alkalmas, biztonságos és olcsó. 

Aki kazettás egységen akarja az adatait tárolni, annak alkalmazkodnia kell a kazettás egység 
szolgáltatta lehetőségekhez. Legcélszerűbb olyan file-okat felépíteni, amelyek mérete az 
alapgép tárkapacitását nem lépi túl. Az adathalmaz kezelését ugyanis rendkívül megnehezíti 
és lelassítja a szalag állandó áttekercselése. Ezzel szemben a tárban elhelyezett adatok közül 
bármelyiket pillanatok alatt meg tudjuk keresni, módosítani, majd a módosított állományt 
adott esetben újra tárolhatjuk a szalagon, hiszen kis adathalmaz esetén a gyakori újratárolás 
sem túlságosan időigényes folyamat. Nagyobb adatállományokat célszerű kisebb egységek- 
re bontani (a címfile-t például a nevek kezdőbetűje szerint A-tól C-ig, F-től D-ig stb.), ezzel 
biztosítva, hogy az egyes egységek a tárban elférjenek. Könnyű belátni, hogy kazettás 
egységen, annak fizikai felépítése miatt, kizárólag soros szerkezetű file-ok tárolhatóak. 
Természetesen soros szerkezetű file-okat a mágneslemezen is felépíthetünk, és bár az alapelv 
változatlan, a lemezegységen már a soros file-kezelés is bizonyos előnyöket mutat a szalagos 
tároláshoz képest. Ugyanis míg a szalagon egy adathalmazt a szalagpozíció ismeretében 
kézzel kell megkeresnünk, addig a lemezen a tartalomjegyzékben tárolt file-nevek alapján a 
keresést elvégzi helyettünk a gép, ráadásul gyorsabban, hiszen a szalag áttekercselése 
sokkal több időt vesz igénybe, mint az olvasófej pozicionálása. 

Hogyan programozható a soros adatfeldolgozás a Commodore 64-esen? Először meg kell 
nyitnunk a file-t OPEN utasítással, megadva a file-számot, egységszámot, csatornaszámot, 
és a file nevét. Megnyitás után megfelelő utasításokkal írhatunk a file-ba vagy olvashatunk 
belőle, de az lehetetlen, hogy írjunk és olvassunk egyszerre. Sőt, ha eldöntöttük, hogy egy 
programon belül írunk a file-ba, azt sem tehetjük meg minden további nélkül. Ha ugyanis az 


OPEN 2, 8, 2, "0 : CBM 64 FILE, S, W" 


143 


utasítással megnyitjuk írásra a CBM 64 FILE nevű file-t, de ugyanilyen nevű adathalmaz már 
van a lemezen, a DOS a FILE EXISTS hibaüzenetet küldi, és a program futása megszakad. 
Ha valóban az a szándékunk, hogy a már létező adathalmazt felülírjuk, az utasítást a 
következőképpen kell módosítanunk: 


OPEN 2), 8, 2, "(a 0 : CBM 64 FILE, S, W" 


amelyben a (4 jel közli a DOS-szal, hogy a már létező file-ra a továbbiakban nincs szükség. 
Nagyon fontos tudnunk: még a lemezen tárolt soros file-t sem tudjuk közvetlenül megváltoz- 
tatnil Először be kell olvasnunk az egész adathalmazt a tárba, ott el kell végeznünk a kívánt 
módosításokat, majd ezt követően az egészet a régi helyén újra tárolnunk kell. 

A soros file-ok lemezes tárolása a szalagos tároláshoz képest a következő előnyökkel 
rendelkezik: a nagyobb tárolási és visszaolvasási sebesség, az egyszerű bővíthetőség. (Nem 
kell az adathalmazt a tárba beolvasni, ott kiegészíteni, majd ismét az egészet tárolni.) 
A bővítés utasítása: 


OPEN 2.8.2, "0:CBM 64 FILE, S, A" 


ahol az A az append (bővítés) angol szó rövidítése. 

Az OPEN-t követő írási utasítások az adatokat a már létező file végéhez illesztik. 

Ugyanez a lehetőség szalagos soros file esetében sajnos nem adott. Ugyanolyan módszerrel, 
ahogyan a lemezen a soros file belső adatait módosítjuk, a szalagos file-t teljes egészében 
a tárban kell elhelyezni, ott módosítani vagy bővíteni, majd újra tárolni. 

Az eddigi elemzések alapján biztosan minden Olvasó belátta, hogy a szalagos adattárolási 
módszer komolyabb adatfeldolgozási feladatok megoldására valóban nem alkalmas, 

Most bemutatunk néhány mintaprogramot a szalagos és lemezes soros file-ok kezelésére. 
A programokat bárki könnyen saját elképzelésének megfelelően átalakíthatja. 

Nézzük először a szalagos változatokat: 


1. Adatok felírása 


0 REM dette PO4. 8636364E 

$-t 

b 

10 REM BEdedtdt att EE NEJE TEJE JEE NEJE TE TETEJE EE E EALER AE At 96 36 JE EHE 96 9E 36 363646 E 
20 REM VEZETEKNEV ES KERESZTNEV FELIRASA A SZALAGRA 

50 REM A COMMODORE—-64-ES KAZETTAS EGYSEGRE KESZULT VALTOZAT 

40 REM HNE9ETEME TERE TE TE TETEJE TE TE TEJE TEJE TEJE TE AE AE TREE AE 96 BEEE 9E 96 HEHE JE HE ÁE AE JEE TE ALI E EATER RE AE 
530 PRINT CHR$(147): REM KEFERNYOTORLES 

52 PRINT"A FILE MEGNYITASA IRASRA" 


54 PRINT 

56 OPEN 1,1,1,"CBM 64 FILE" 

60 INPUT "VEZETEKNEV : ";NA£$ 
70 INPUT "KERESZTNEV : ";5VN$ 
89 PRINT 


90 PRINT "FELIROM A "NA$" VEZETEKNEVET" 
1090 PRINT "FELIROM A "VN$" KERESZTNEVET" 
110 PRINT 

120 PRINTHI1I,NA$ 

150 PRINTHI,VN$ 

140 PRINT 

1590 INPUT "TOVABB (I/N) ";JN$ 

155 PRINT 

160 IF JN$-—"I" THEN GOTO 60 

170 IF JN$-"N" THEN GOTO 200 
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180 PRINT "HIBAS ADATBEVITEL !" 
199 GOTO 140 

200 CLOSE 1 

210 END 


A program feladata tetszőleges számú név és cím tárolása mágnesszalagon a , CBM 64 FILE" 
nevű file-ban. Az Olvasót feltehetően nem kell arra figyelmeztetni, hogy a program csak 
kazettás egységgel használható. 

A következő program feladata az előzőnek pontosan az ellenkezője. Ez a program a szala- 
gon korábban tárolt adatokat beolvassa és megjeleníti képernyőn (vagy nyomtatón). 

A program indításakor a szalagpozíciót a file elejére kell állítani. 


2. Adatok olvasása 


9 REM texX PG5. XKRIH 
$. d 


10. REM dE9EEHEBEBE EE SEBE JE ENE E TERE ÁE AAA 9E 9 969E IEEE TEJE TE AE TEJE TE AE IE JEE IE AE HE JEE AE E AE AE E 9E AE 
20 REM A VEZETEKNEV ES KERESZTNEV VISSZAOLVASASA SZALAGROL 
30 REM A COMMODORE-64-ES KAZETTAS EGYSEGRE KESZULT VALTOZAT 
AD REM BEBENEREZBEBE BE TEJET JE AE JE IE EE IE JE BE IEEE DE EE JE TEJE TEJE AE IEEE IE TE AE AE TE AE ALA JE JE IE JE 9E JE IE 3E IE 
50 PRINT CHR$(147): REM KEPERNYOTORLES 

52 PRINT"A FILE MEGNYITASA OLVASÁSRA" 

54 PRINT 

56 OPEN 1,1,9,"CBM 64 FILE" 

60 INPUTHI1,NA$ 

70 INPUTHI1,VNE 

89 IF ST AND 64 THEN GOTO 130: REM FILE-VEGE ? 

99 PRINT "A BEOLVASOTT VEZETEKNEV —- ";NA$ 

109 PRINT "A BEOLVASOTT KERESZTNEV z ";VN$ 

1190 PRINT 

120 GOTO 60 

139 PRINT "A FILE VEGEN TALALT VEZETEKNEV z ":NA$ 

140 PRINT "A FILE VEGEN TALALT KERESZTNEV — ";VN$ 

159 CLOSE 1 

155 PRINT 

160 END 


Ha a fenti programmal nem képernyőre, hanem nyomtatóra szeretnénk íratni az adatokat, 
a következő módosításokat kell elvégezni: 


B REM ttititit PObh.  déé4tit 

4. 

b. 

58 OPEN 4,4 

90" PRINTH4,"A BEOLVASOTT VEZETEKNEV - ";NA$ 

1008 PRINTH4,"A BEOLVASOTT KERESZTNEV - ";VN$ 

110 PRINTHA 

129 GOTO 69 

150 PRINTH4,"A FILE VEGEN TALALT VEZETEKNEV - ";NA$ 
140 PRINTH4,"A FILE VEGEN TALALT KERESZTNEV — ";VN$ 
155 CLOSE 4 


A harmadik program a szalagos file-t bővíti a már korábbiakban ismertetett módszerrel, 
A bővítés tulajdonképpen a tárban történik: az eredeti adathalmazt olvasás közben elhelyez- 
zük két indexes változóba, és beolvasás után az első szabad indextől kezdve folytatjuk a 
változó feltöltését. Bővítés után a teljes adathalmazt újra tároljuk, 
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3. Adathalmaz bővítése 


0 REM AXX3X PG7. 363E363E 

1 A 

a 2 

190 REM BENE REE E TEJE 449 1EKIE NEJE IE BE AETR E TE AE IE TE DEE JEE JE JEE HERE TE EE IE TE BE JE AE 39636 3E 36 9E AE 

20 REM A SZALAGOS FILE BOVITESE 

30 REM A COMMODORE—-64-ES KAZETTAS EGYSEGRE KESZULT VALTOZAT 

A0 REM BEREJERENE BE BE IE 96 3E 36 IE JE IEEE JE AE 6JE IE JE IE JE JE 36 AE JE IE IE-IE JE HE-HE JE IE IE At AE JEE JE JE DE IE 96 JEE 3E-9E 

59 PRINT CHR$(147): REM KEPERNYOTORLES 

52 PRINT "A FILE MEGNYITASA OLVASÁSRA" 

54 PRINT d 
56 OPEN 1,1,9,"CBM 64 FILE" 1 ai. 
60 DIM NA$(190) ,VN$ ( 100) : I-—1: REM MAXIMUM: 1987 NEV: égős lé za 
70 INPUTHI,NA$: NA$(I)-NA$ ie PAN eeakt Ede : a 14 
89 INPUTHIS,VN$: VN$(I)-VN$ 

90 IF ST AND 64 THEN GOTO 1309 

100 IF I-100 THEN GOTO 150 

110 I-It1 

120 GOTO 70 

138 VEGE-I 

140 PRINT "CSEVELJE VISSZA A SZALAGOT !" 

159 PRINT 

160 INPUT "KESZ (I/N) ";JN£ 

170 IF JN$-"N" THEN GOTO 138 

180 IF JN$-"I" THEN GOTO 210 

199 PRINT "HIBAS ADATBEVITEL. !" 

209 GOTO 150 

210 PRINT "A FILE MEGNYITASA BOVITESRE" 

220 PRINT 

230 OPEN 1,1,1,"CBM 64 FILE" 

240 FOR I-1. TO VEGE 

250 PRINT$H1,NA$(I) 

260 PRINTHI,VN$C(I) 

270 NEXT I 

280 PRINT "BOVITES" 

290: PRINT. Hb. 

309 INPUT "VEZETEKNEV : "5NA$ 

319 INPUT "KERESZTNEV : ";VN$ 

320 PRINT : 
339 PRINT "FELIROM A "NA$" VEZETEKNEVET" j izes de 
349 PRINT "FELIROM A "VN$" KERESZTNEVET" 

350 PRINT 

3609 PRINTH1,NA$ ! 
370 PRINTHI1,VNÉ ; - f 
389 PRINT 

399 INPUT "TOVABB (I/N)";IN$£ 

490 IF IN$-"I" THEN GOTO 3090 

410 IF IN$-"N" THEN GOTO 4409 1 

420 PRINT "HIBAS ADATBEVITEL !" § j ; 

430 GOTO 380 , 

440 CLOSE 1 

450 END 


Az ismertetett három program egy címnyilvántartó rendszert alkot, gyakorlatilag mindent tud, 
ami az adatfeldolgozáshoz szükséges: feltölti, módosítja, visszaolvassa az adathalmazt. 


Most térjünk át a soros file-ok lemezes kezelésére. 
1. Adatok felírása 


Az alábbi program szinte szóról szóra azonos azzal, amit a kazettás egység kapcsán már 
megismertünk. Egyetlen eltérés az OPEN utasítás formátumában van. 
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B REM dtititit POR. 3636dEIE 
d "€ 


REM  45040636363606-13É 36-96 -BE 963696 BE Bt 16961 -HE 96-96 E-1E16—1E TE 1E96-BÉ9E-36-6—BÉ HÉ 96-96-16-HE E a 

REM VEZETEKNEV ES KERESZTNEV FELIRASA LEMEZRE 

REM A VC 1541/COMMODORE-64-RE KESZULT VALTOZAT 

REM  9E94363€ 36 36-34-36 JE E 36-36-3E JE 36-36-36 IE 34. 96-3E E AE 36-JE 9 3E-EJE ME-3EJE JE E 96-AE-IE DE 26 96-46-9é 9t 

PRINT CHR$(147):REM KEPERNYOTORLES 

PRINT "A FILE MEGNYITASA IRASRA" 

PRINT 

OPEN 2,8,2,"CBM 64 FILE,S5,W" 

INPUT "VEZETEKNEV : ";5NA$ 

INPUT "KERESZTNEV : "5VN$ 

PRINT 

PRINT "FELIROM A "NA$" VEZETEKNEVET" 

100 PRINT "FELIROM A "VN$" KERESZTNEVET" 

119 PRINT STO TÉT 
120 PRINT$2,NA$ KEZES ÜNK 
139 PRINTH2,VN$ 4? 7 : 
140 PRINT 

159 INPUT "ISMETLI €I/N) ";:JN$ 

155 PRINT. 

169 IF JN$-"I" THEN GOTO 68 

170 IF JN$-"N" THEN GOTO 289 

1809 PRINT "HIBAS ADATBEVITEL !" 

199 GOTO 140 

299 CLOSE 2 

219 END 


38s5SEÍkésSS s 


A program folyamatosan kéri a tárolandó adatokat, mindaddig, amíg a gépkezelő kívánja. 
Természetesen, ha az adathalmaz mérete meghaladja a lemez kapacitását, hibaüzenetet 
kapunk és a program futása megszakad. 

Az ilyen hibák elkerülésére célszerű adatbevitel előtt pontosan kiszámítani a szabad tárolóka- 
pacitást. 

A VC—-1541-es lemezegység teljes tárkapacitása 174.848 byte (karakter). Ebből felhasználha- 
tó: 


Soros file tárolására: 168.656 karakter 
Relatív file tárolására: 167.132 karakter 
bj 
Ugyanakkor összesen 144 különböző file-t (programot) tárolhatunk a lemezen (ennyi a 
 file-bejegyzések maximális száma a tartalomjegyzékben). 


Hogyan tervezzük meg az adathalmaz méretét? 
Tegyük fel, hogy a címnyilvántartásban egy rekordon belül a következő adatmezőket szeret- 
nénk tárolni: 


Megnevezés Hossz 
Sorszám 3 
Vezetéknév 20 
Keresztnév 20 
Utca, házszám 25 
Kerület 4 
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Város 25 


Ország 3 
Telefon 16 
Megjegyzés 50 
Összesen 166 


Minden adatmezőt egy RETURN karakter (CHR$ (13)) követ, tehát a teljes rekordhossz 175 
karakter. A következő képlettel meghatározhatjuk, hogy az ilyen szerkezetű rekordokból 
maximálisan hány fér el egy üres lemezen: 


MAX-—A soros tároláskor rendelkezésre álló byte-ok száma/a rekordhossz 
A mi példánkban: 
168.656/175 —963,74857 


A számítás eredménye azt mutatja, hogy 968,74857 számú rekord elfér a lemezen, de mindig 
célszerű egy kis ráhagyással dolgozni, tehát pl. 950 rekordra szabni a file méretét. Ha ennél 
jóval nagyobb adathalmazokkal kívánunk dolgozni, érdemes egy nagyobb kapacitású le- 
mezegységet vásárolni. A 8250-es lemezegységen pl. ugyanilyen szerkezetű címrekordokból 
5500-at tudunk elhelyezni. 

A nagy CBM lemezegységeket az IEC-bus segítségével csatlakoztathatjuk a C64-es alapgép- 
hez. 

A DATA BECKER által forgalmazott IEC-Bus óriási előnye, hogy tartalmazza a BASIC 4.0 
változatot, ami a nagy CBM gépek programozási nyelve. 


2. Adatok olvasása 


A lemezen tárolt soros file visszaolvasására szolgáló program ismét nem sokban különbözik 
a kazettás egységre vonatkozó változattól: 


1 

73 

10 REM BEEE E 96 NEE IEEE MENET NN 91EAÉ AT E ÁE NEE AE BEEE TE AAEE 46-36-46 AE 
28 REM VEZETEKNEV ES KERESZTNEV VISSZAOLVASASA LEMEZROL 

39 REM A VC 1541/COMMODORE-64-RE KESZULT VALTOZAT 

40 REM BENNMRERE HETE RE ME JE AE NEEE E E TEA HE EE TETEME E ME 9E AE AE EE E A6-A6-BE AE EE AE At 1-4 A 4E 
590 PRINT. CHR$(147) : REM KEPERNYOTORLES 

52 PRINT "A FILE MEGNYITASA OLVASASRA" 
54 

56 

60 

70 

80 

99 


PRINT 

OPEN 2,8,2,"CBM 64 FILE,S,R" 

INPUTH2,NA$ 

INPUTH2,VN$ 

IF ST AND 64 THEN GOTO 139:REM FILE-VEGE ? 

ÉRINT "A BEOLVASOTT VEZETEKNEV — s ":NA$ 
199 PRINT "A BEOLVASOTT KERESZTNEV z "YN$ 
119 PRINT 


129 GOTO 60 

1530 PRINT "A FILE VEGEN TALALT VEZETEKNEV - ";NA$ 
140 PRINT "A FILE VEGEN TALALT KERESZTNEV — ";VN$ 
159 CLOSE 2 

160 END 
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A következő programban bemutatjuk, hogy hogyan lehet a soros file-t a lemezen bővíteni. 
3. Adathalmaz bővítése 


9 REM 8$36-464t P7O. 36364EE 

tű 

ak 

10. REM BEEE E JEE 3E 3E JE JE EE 4E-15-96-IE JEE HEATH EE DEZE E IEEE 96 96-1E-44-16-9E-HE 96 16-96-46-1E 
29 REM LEMEZES FILE BOVITESE 

30 REM A VC 1541/COMMODORE—-64-RE KESZULT VALTOZAT 
AB REM BEREREBERERE TEJE 9E 36 9E AE AE AE EE 9E-AE 3E-HE AE AE AE JE JE AE IE TEJE IE E 3-IE AE-AE1E 96 -3E 44 3-9E-4E At 
50 PRINT CHR$(147) : REM KEPERNYOTORLES 

52 PRINT "LEMEZ .MEGNYITASA OLVASASRA" 


54 PRINT 

56 OPEN 2,8,2,"CBM 64 FILE,S,A" jén 
60 INPUT "VEZETEKNEV : ";NA$ 19920 M/Szaa 
70 INPUT "KERESZTNEV : ";VN£ 

89 PRINT 


90 PRINT "FELIROM A "NA$" VEZETEKNEVET" 
190 PRINT"FELIROM A "VN$" KERESZTNEVET" 
119 PRINT 

120 PRINTHZ,NA$ 

150 PRINTH2,VN$ 

140 PRINT 

150 INPUT "ISMETLI (I/N) ";5JN$ 

155 PRINT 

160 IF JN$—"I" THEN GOTO 60 

170 IF JN$-"N" THEN GOTO 200 

180 PRINT "HIBAS ADATBEVITEL !" 

199 GOTO 148 

200 CLOSE 2 

210 END 


Az Olvasónak bizonyára feltűnt, hogy a fenti, bővítő program a lemezre írás programjától . 
mindössze egyetlen sorban, azaz az OPEN utasításban BELDOZI 
Lemezre írásnál az: 


OPEN 2.82, "CBM 64 FILE, S, W" 
bővítésnél pedig az: 
OPEN 2.8.2, "CBM 64 FILE, SA" 


utasítást használtuk. Az utóbbit a DOS úgy értelmezi, hogy a PRINT 4t 2 utasításban megadott 
változók tartalmát nem a file elejétől írja fel a lemezre, felülírva az ott lévő adatokat, hanem 
a file eddigi utolsó adata mögé. Ez a bővítési lehetőség kényelmesebbé teszi a soros file 
karbantartásának programozását. 


A fejezet utolsó részében szeretnénk a soros file néhány valóban hasznos alkalmazási 
területére rámutatni. Ha az adatfeldolgozási feladat olyan, hogy megköveteli az adatok gyors 
elérését, gyakori megváltoztatását, és ráadásul a file mérete meghaladja a tár kapacitását, 
a soros adattárolás nem túlságosan. előnyös. 

Ha olyan adatokat tárolunk, amelyeket esetleg többféle személyi számítógéppel szeretnénk 
feldolgoztatni, a soros file kiválóan alkalmazható, hiszen szinte minden gép ASCII kódokat 
használ az adatok lemezreírásánál, tehát az egyik gép el tudja olvasni a másik által felírt 
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információt. Ugyanezt nem mondhatjuk el a relatív, ill. közvetlen elérésű file-okról, hiszen az 
adatok közvetlen elérését a különböző lemezegységek operációs rendszerei általában eltérő 
módon szervezik meg. A soros file másik célszerű felhasználási területe a könyvelési naplók, 
pénzügyi nyilvántartások készítése, amelyeket folyamatosan, pl. számlák feldolgozása köz- 
ben tárolunk, és amelyben az egyszer lemezre felírt adatokat nemcsak nem szükséges, 
hanem egyenesen tilos megváltoztatni. 
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8.3 Így gyorsabban megy: a relatív file-szervezés 


Az adattárolás a relatív file-ban jóval kényelmesebb és gyorsabb, mint az eddigiekben 
megismert soros szervezésű módszer. Különösen akkor, ha olyan gépen dolgozunk, amelyen 
van COMMODORE 64 MAXI adatkezelő rendszer, vagy DATA BECKER IEC-Bus, amellyel a 
BASIC 4.0 változat utasításait használhatjuk. A relatív file-ban minden rekordhoz egy szám 
tartozik (vagy ún. kulcs), amely a file kezdetéhez viszonyítva megadja a rekord helyzetét. 
A kulcs alapján a file bármely rekordját közvetlenül beolvashatjuk. A közvetlen hozzáférést 
általában kétféleképpen szervezik a programozók: 


1) A rekord valamely adatmezőjét használják kulcsként. Pl. ha egy számlanyilvántartásban 
a számlaszám a rekord kulcsa, így egy adott számlát a számlaszám alapján visszakereshe- 
tünk. Az anyagnyilvántartásban pl. az anyag cikkszáma tekinthető rekord-kulcsnak. A kulcs 
megválasztásánál két dologra kell feltétlenül figyelnünk: egyrészt nem szerepelhet a file-ban 
két azonos kulccsal ellátott rekord (ugyanis ekkor az egyik rekord elvész), másrészt a 
kulcsnak lehetőleg folyamatosan kell növekednie a teljes rekordhalmazon, egyébként héza- 
gos lesz a file. 

2) Ha a rekord nem tartalmaz olyan mezőt, amely betölthetné a kulcs szerepét, mert pl. 
minden mező füzér, akkor általában egy ún. kulcstáblázatot készítenek. Ha pl. a címfile-ban 
leggyakrabban a személy neve alapján fogunk keresni, akkor célszerű a kulcstáblázatot a 
név mezőre felépíteni. A kulcstáblázat a file-beli sorrendben tartalmazza minden rekordból 
a név mezőt. A közvetlen elérés tehát úgy történhet, hogy először megkeressük, hogy a 
keresett név a táblázatban hányadik helyen szerepel. A kapott sorszám egyben a keresett 
rekord file-beli kulcsa. A kulcs alapján beolvashatjuk az egész rekordot. 


A BASIC 4.0 változat, a MAXI 64 vagy a MASTER 64 szoftverek a relatív file kezelését nagyon 
rugalmassá, kényelmessé teszik. Annak ellenére azonban, hogy a Commodore 64-es BASIC 
utasításkészlete nem tartalmaz lemezkezelést, a VC 1541-es lemezegység operációs rendsze- 
rébe, a DOS-ba be van építve a relatív file-típus használatának lehetősége, a rekordok 
közvetlen elérésének műveletei. A CHR$ függvény argumentumaként megadhatjuk annak a 
rekordnak a kulcsát, amelyre írni, vagy amelyből olvasni akarunk. Az egész folyamat két 
lépésből áll: 


1) A relatív file megnyitása OPEN utasítással 
OPEN file-szám, egységszám, csatornaszám, "név, L"-t CHR$ (rekordhossz) 


Az OPEN utasítás első három paramétere azonos a soros file megnyitásához szükséges 
paraméterekkel. A file nevét most L betű követi, erről ismeri fel a DOS, hogy relatív file 
megnyítása következik (az angol LENGTH szó kezdőbetűje, jelentése magyarul: hossz). 

Az L betűt egy CHR$ függvény követi, amelynek argumentuma megadja a relatív file rekordjai- 
nak hosszát. Ha például az előző fejezetben megtervezett címnyilvántartási adatokat relatív 
file-ban kívánjuk tárolni, rekordhosszként 175-öt kell megadnunk. A Commodore 64-es, ill. a 
lemezegység operációs rendszere maximum 254 karaktert tartalmazó rekordokat tud kezelni. 
Ha 254-nél több karaktert kell összefüggően tárolnunk, akkor vagy fel kell bontanunk a 
tényleges rekordot két relatív file-beli rekordra, és programból a két fizikai rekordot egy logikai 
rekordként kezelni, vagy a két részt eleve külön relatív file-ban kell tárolnunk. 
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2) Pozicionálás az adott kulcsú rekordra 
PRINT 4; parancscsatorna száma, "P" t CHR$ (csatornaszám) t CHR$ (alsó) t CHRS (felső) 


Az utasításban a "P" a POSITION angol szó kezdőbetűje, ez közli a DOS-szal, hogy az utolsó 
két CHR$ függvény argumentuma a keresett rekord kulcsát (a file kezdetéhez viszonyított 
sorszámát) adja meg, alsó és felső byte-ra bontva. 

Az utasítást még egy CHR$ függvénnyel bővíthetnénk, argumentumában megadva, hogy a 
rekordon belül hányadik pozíciótól kezdve kívánunk írni vagy olvasni. Ez azt jelenti, hogy ha 
a rekordból pl. csak a harmadik adatmezőre van szükségünk, és tudjuk, hogy az első két 
mező hány karaktert foglal le, közvetlenül elérhetjük a harmadik adatmezőt. A file felépítésé- 
nél figyelembe kell vennünk még egy nagyon fontos szempontot: a relatív file-ban éppúgy, 
minta soros file-ban az adatmezőket RETURN karakterrel, CHR$(13)-mal kell elválasztanunk 
egymástól, egyébként ugyanis a gép az egész rekordot egy adatmezőként érzékelné. Mivel 
minden PRINT utasítás automatikusan egy RETURN-t helyez a kiírt adat mögé, ez a kérdés 
automatikusan megoldódik, ha minden adatmezőt külön PRINT-dtH utasítással írunk fel a 
lemezre. Az elméleti összefüggést természetesen könnyebb megérteni, ha minden lépést egy 
gyakorlati példán keresztül személtetünk. Ezért bemutatunk egy raktárkészlet-nyilvántartó 
programot, amelyből az Olvasó kisebb változtatásokkal tetszőleges nyilvántartási programot 
készíthet (pl. cím-, kazetta-nyilvántartást stb.). Térjünk vissza azonban még néhány mondat 
erejéig az elméletre, nézzük meg hogyan kell kiszámítani az alsó, ill. felső byte-ot. 


A számítás képlete: 
A rekord sorszáma — FELSŐx256 ALSÓ 
A felső és alsó byte-ok értékét pedig a 


FELSO-—INT (rekordsorszám/256) 
ALSÓ — rekordsorszám — FELSŐw256 


képletekkel számíthatjuk ki. 
Ha például a file 78-adik rekordjára akarunk pozicionálni, az 


FB-INT(78/256) : AB — 78— FBx256 
azaz FB—0 és AB— 78 


Természetesen a fenti számítás teljesen felesleges, ha a rekord sorszáma kisebb mint 256, 
hiszen minden ilyen esetben a felső byte értéke nulla, az alsó byte értéke pedig azonos a 
rekord sorszámával. 
Végül is a file 78. rekordjára a következőképpen pozicionálhatunk: 

. PRINT4- parancscsatorna, "P"-4 CHR$ (csatornaszám) t CHR$(0) 4 CHR$(78) 


Az általunk készített raktárnyilvántartásban az alábbi pozicionáló utasítással 


PRINT 4 15, "P" 4 CHR$(3) 4 CHR$(231) - CHRS$(3) 4 CHRS(1) 
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a file 999-edik rekordjának első karakterére pozicionálunk. 

Az adatok felírása előtt a relatív file-t elő kell készíteni. Előkészítéshez meg kell nyitnunk a 
parancscsatornát (15-ös), majd pozicionálás után az adott rekordra CHR$(255) karaktert 
kell írni, ebből értesül ugyanis a DOS a rekord létezéséről. 

A mi példánkban a 999-edik rekordra írunk CHR$(255) karaktert. 

Előkészítés után a file tetszőleges rekordjára írhatunk adatokat, figyelembe véve, hogy hány 
rekord számára készítettük elő a területet. Minthogy az előkészítés 999 rekordra történt, ha 
ennél nagyobb sorszámú rekordra írnánk, a RECORD NOT PRESENT hibaüzenetet kapnánk, 
mivel a DOS számára ez a rekord még nem létezik. 

Térjünk rá a program működésének elemzésére. 


Indítás után a program megkérdezi, hogy bekapcsoltuk-e a lemezegységet, majd mindaddig 
vár, amíg az I billentyűt le nem nyomtuk. Válasz után ismét egy kérdést tesz fel a gép: 
megkérdezi, hogy új lemezzel dolgozunk-e. Ebben az esetben az , új" lemez alatt nemcsak 
a most megvásárolt, még formálatlan lemezt érti a program, hanem olyan lemezt is, amelyen 
még nincs adatfile. Vigyázat! Ha a válasz ,igen", a lemezt a program mindkét esetben 
megformálja, lehetőleg tehát ne programlemezzel dolgozzunk! 


A bevezető műveletek elvégzése után megjelenik a főmenű, amely hatféle szolgáltatást kínál 
a használónak. Az adatbevitel során ügyeljünk arra, hogy az adatok hossza nem haladhatja 
meg a DATA utasításokban (38-82) előre rögzített hosszakat. 

Ezekben a sorokban rendre először az adatmező nevét, majd az adatmező hosszát rögzítet- 
tük. 4 

Ha az adathalmazból egy már meglévő rekordot törölni akarunk, hívjuk meg a főmenűből 
a módosító rutint, és az árutípus első karaktereként írjunk egy (2 karaktert, ez a karakter 
jelöli ugyanis a program számára a törölt rekordot. 

Minden alprogramból visszatérhetünk a főmenűbe, ha adatbevitel során cikkszám helyett a 
VEGE szót írjuk be. 

A 15. sorban az ME indexes változó a többletérték adó százalékos értékét tartalmazza. Azért 
adtunk meg több lehetőséget, mert a gyakorlatban ez a kulcs változik. Amikor a program a 
többletérték adó kulcsát kérdezi, írjunk be 1-et ha 6,590-kal; 2-t ha 1399-kal; 3-at ha 790-kal; 
és 4-et ha 1496-kal kívánunk dolgozni. 

Végül szeretnénk felhívni az Olvasó figyelmét a program működésének egy sajátosságára. 
A cikkszámot, melynek értéke 800-tól 900-ig terjedhet, a program tulajdonképpen nem 
árucikknek, hanem bevételnek, ill. kiadásnak tekinti. Így a használó a különböző árucikkek 
mellett a magán-, ill. bankszámláit is nyilvántarthatja. A számlákat a PENZTARBLOKKOK 
BEVITELE alprogram olvassa be. Ha az első számlaszám nagyobb, mint 799, akkor a program 
árucikk-adatokat, egyébként számlaadatokat vár. 

Figyeljünk arra, hogy munka közben a nyomtató és a lemezegység mindig be legyen kapcsol- 
va! Ha az Olvasó nem rendelkezik nyomtatóval, a programot át kell írnia (mindazokban a 
sorokban módosítani kell, ahol PRINT 3 4 utasítás — nyomtatás — szerepel). 

Ha a programot több kirendeltség vagy több személy adatainak nyilvántartására szeretnénk 
felhasználni, célszerű minden kirendeltség, ill. személy számára külön adathalmazt fenntarta- 
ni, így a teljes pénzügyi helyzetről áttekintést nyerhetünk. 

Reméljük, hogy mindazok, akik nem sajnálják a fáradságot az alábbi program áttekintésére, 
bepillantást nyernek az adatfeldolgozási munka alapjaiba, különös tekintettel a relatív file- 
ban tárolt adatok kezelésére. Lehet, hogy a program első látásra bonyolultnak tűnik, ennek 
ellenére egészen biztosak vagyunk abban, hogy bárki, kis gyakorlás után, hasonló szerkezetű 
programot önállóan is el tud készíteni. (Kiegészítés: lásd 186. oldal.) 
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1 REM tött P7I. 


2t 
Mn 


9442 


CLR 


MEC1)n1.OS65IME(2)51.I3:ME(3):1.O7rMEC4)z1.14 


FOR 154 TO 71READ 
DATA "1) CIKKSZAM 
DATA "2) ARUTIPUS 
DATA "3) DARAB 
DATA "4) EGYSEGAR 
DATA "5) OSSZ.AR 
DATA "6) EGYSEBAR 
DATA "7) OSSZ.AR 
FOR 121 TO 31REARD 
DATA "1) CIKKSZAM 
DATA "2) ARUTIPUS 
DATA "3) TECS 
FOR 121 TO 4:REAO 
DATA 
DATA 
DATA 
DATA "4) 
PRINT CHRS( 147) 


"2) DATUM 


"1) FILIAR NR. 


"3) SZAMLASZAM 
BERLETSZAM 


TD$SK(I) .TD( I): NEXT 
1" 3 
1" 28 
:" 3 
EK.t",7 
EK.t" ,8 
VK.s",? 
VK.r" B 
TISCID.TICI)NEXT 
1" 3 
tr" 20 
1" ,1 
TT$(I),TT(IJINEXT 
L SAS! 
1" ,8B 
1" 8 
1" B 


PRINT" EEGGGEVITEEESEZERTÉGETELEZ ENE TANAR BB"? 


PRINT" a 


ADATFELDOLGOZÓ PROBRAM 1.8 


4"; 


PRINT" EEGEKEVGEEEEETET ENABLE LELNE tt tt kt tők"? 


PRINTILPRINT 


PRINT"A LEMEZEGYSEB BE VAN KAPCSOLVA (I/N)?": 
THEN 168 


GETAS:LIF ASu"" 
IF ABCD"I" 
PRINTAS 

OPENI5,8,15,"10"1 


THEN 1 


PRINT"UJ LEMEZT HELYEZETT BE 
THEN 210 
THEN 308 


BETASI IF AGa"" 
IFASBCD "I" 
PRINTAS 


CLOSE15 


OPENIS.8 , 15 , "NE ADATLEMEZ , AH" 
OPENI .8 .3 . "OSARTDAT .L , " 1CHRSCB4) 


PRINTW15S,"P"3CHR$-3) 1CHRS(231) 1CHRSECZDI ICHRH( 1) 


PRINTW1 ,CHRS(255) 
RM:INT(167132/64) 
CLOSE 1! ! CLOBE 15 
PRINTCHRS( 147) 


; 


£1/N)?"7 


PRINT" EIGVVVLEKHEEEBEELENEBÉLEENEGEKÜEEE EE ESEK" I 


PRINT": 


ADATFELDOLGOZO PROGRAM 1.0 


a") 


PRINT" EEEEGVVLIELEVEREKEBEVELEBÜEENBBBEEEBEZS:" I 


PRINTEPRINT 


PRINT TAB(15) 3 "FOMENU ! "PRINT: PRINT 

1) AZ ARUCIKKEK BEVITELE. "!PRINT 

AZ ARUCIKKEK MODOSITASA." PRINT 
A PENZTARBLOKKOK BEVITELE. ":PRINT 
CIKKLISTA NYOMTATASA.":PRINT 

A KIERTEKELES NYOMTATASA.":PRINT 
A PROGRAM VEGE.":PRINT 
PRINT"KEREM VALASSZON. 
THEN 380 


PRINT" 
PRINT" 2) 
PRINT" 3) 
PRINT" 4) 
PRINT" 5) 
PRINT" 6 


GETAS:IF A$a"" 
AZVALC(AGIL IF AKI 
PRINTAS 


£1-8) 1"? 


OR A)86 THEN 398 


FOR Isi TO 18008: NEXT I 


ON A GOTO 16088 .290908 ,. 3908 ,. 4600 , 5088 .6000 
OPEN15 , 8 , 15: OPENB , 8 , 8 , "OTADATOK " 


1082 GOSUB 128080 


PRINT CHRS(147) 


8 PRINT": 


1840 PRINTIPRINT 
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PRINT"O0tGEEERHEELELLELBETLEELEELEEEETSttttetá" I 
ADATFELDOLGOZO PROGRAM 1.6 
PRINT" GE.EVGEKEVVEZEEKEGEREEGEGELEEZGEEEEEKEEBB" I 


4" 


PRINT TAB(B)3"AZ ARUCIKKEK BEVITELE. "tPRINT:PRINT 
FOR Iz1 TO 3 

TESC(I)z"" 

PRINTTIS(I)J 

INPUTTESK( I) 

IF TES(1)a"VEGE" THEN 1206 

IF LEN(KTES(I))ÖTICI) THEN 1665 

NEXT 

FOR Iz4 TO BIETESKCI)z"":NEXT 
RNSVAL(TES(1)) 

IF RNXK1 OR RN)889 THEN 18085 

GBOSUB 109000 

G0$UB 108780 

GOTO1005 ARAN CESET 
CLOSE 8:CLOSE 15 E. 
GOTO3RO ési 
OPEN15 ,8 , 1510PENB , 8 , 8 , "OZ ADATOK " k 
GOSUB 128000 

PRINT CHRS(147) E 
PRINT" tEkttttitültEtEKEEKELEÜEÜ KEKE KEEkEEEE TI 
PRINT" ADATFELDOLGOZO PROGRAM 1.0 a"; 
PRINT" KEREGEEEZEKEEEEELEEELEEEGELKEEETELELttkt"? 
PRINTIPRINT 

PRINT TAB(B)3"ARUCIKKEK MODOSITASA."FPRINTIPRINT 
TES(1)z"" : j 

PRINTTIS(1)5 

INPUTTES( 1) 

PRINT 

IF TE$S(1):"VEGE" THEN 24080 

IF LEN(TES(1))9TICt) THEN eg55 

RNSVALCTES(1)) 

IF RNC1 OR RN)888 THEN 2005 

GOSUB 10000 

G06U8 10030 

IF VALKTES(1))KIRN THEN 2085 

PRINT CHR$S(147) 
PRINT"EEEGLGELÉÉEETEEÉTETELEEELLEKE ELLE ETEK"? 
PRINT" 4 ADATFELDOLGOZO PROGRBM 1.6 4"; 
PRINT" Ettttttrtitttttttittttttttttktttttttürtké"i 
PRINT:PRINT 

PRINT TABCB)3"ARUCIKKEK MODOSITASA."IPRINTIPRINT 
FOR I5si1 TO3 

PRINTTI$S(ID3"?"; 

PRINTTESK I) 

PRINTTI$(I)5 

INPUTTESK I) 

PRINT 

IF TE$S(1):"VEGE" THEN 24068 

IF LENKTES(I)))TIKI) THEN 2258 

NEXT 

RNSVAL(TE$(1)) 

IF RNXI OR RN)389 THEN 2085 

GOSUB 19088 


GOSUB 180878 8 beat 


CLOSE 4:CLOSE BICLOSE 15 

GOTO300 

GOTOZOOS 134 
G6OSUB8808 ! OPEN15 , 8 , 151 OPENS , 8 , 8 , "OLADATOK " 

GOSUB 12000 

PRINT CHR$(147) 
PRINT"Etttttitttttktttt tri ttkiEEELKEEkKKK" I 
PRINT" § ADATFELDOLGOZO PROGRAM 1.0 k"z 
PRINT"EGGEEKEEEREEZEEEEEZELERETEEKEE EE KÉt kkékt"? 
PRINT:1PRINT vá 


PRINT TAB(B)3 "A PENZTARBLOKKOK BEVITELE."tEPRINTEPRENT 


TESK(19-"" 
PRINTTI$(1); 
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INPUTTESK(1) 

PRINT 

IF TE$(1):"VEGE" THEN 3700 

IF LEN(TE$(199)TI(1) THEN 3060 
RN-VALKTE$(1)) 

IF RNXK1 OR RN?3998 THEN 3005 

IF 0Wz-1i AND RN2799 THEN 3005 
IF DW:-2 AND RN-800 THEN 3005 
GOSUB 19900 

G60SUB108030 

IF VALKTE$(12)KCIRN THEN 3005 
IF LEFT$(TE$(2).19-"8£" THEN 3005 
PRINT CHR$(147) 

PRINT" Et4ítkEEREKEELEEEEEEEEEEEEELk Ete kzt ttkk"? 
PRINT" 4 ADATFELDOLGOZO PROGRAM 1.6 a" 
PRINT"tttittitiitkitttikikiktktitikteitkikékkktkk"? 
PRINT:PRINT 

PRINT TAB(8)53 "A PENZTARBLOKKOK BEVITELE. ":PRINT:PRINT 
FOR Is TOS5S 

TH$CI):TE$S(It3) 

NEXT 

FOR 151 TOR 
PRINTTD$SKCI)3"?"I3TES(I) 
TX$(I)STE$CI) 

PRINT 

NEXT 

TX$S(3):TE$(3) 

PRINTTDS(3); 

INPUTTX$(4) 

TE$(4):TX$S(C4) 

PRINT 

IF VALKTE$(4))k-999 OR VAL(TE$(4))389 THEN 3260 
IF LEN(TE$(4)) 2 TD(3) THEN 3260 
PRINTTDS(4) 

TES(5S)n"" 

INPUTTX$(5) 

TE$(S5IzTXS(5) 

PRINT 

IF LEN(TE$(5))2TD(4) THEN 3290 
PRINTTD$(6B)) 

TES(7)a" e 

INPUTTXS(7) 

TE$(7):SzTXSC7) 

PRINT 

IF LEN(TE$(7)))TD(6) THEN 3320 
TH:VAL(TE$(S5)) VAL (TE$(4) ) 
TX$-6) 2 STR$(TH) 

TH: THIVALKTHS(3)) 

TE$-6) 5STR$(TH) 

TH:VAL(TE$(7)) $VAL(TE$(4)) 
TX$KB):STR$(TH) 
THETHHVAL(TH$S(5)) 
TE$(B):-STR$(TH) 

TH:VAL(TE$S(5)) 

IF VAL(TE$(4))Ci THEN TH5-TH 
THETHHVAL(KTH$(2) ) 

TE$(5S5) zSTR$(TH) 

TH-VAL(TE$(7)) 

IF VAL(TE$(4)2X1i THEN TH--TH 
TH:THHVAL(THS(4) ) 
TE$(7)SS8TR$(TH) 

TH:VAL(TE$K4)) 
TH:THIHVAL(THS( 1) ) 

TE$S(4) sSTR$(TH) 

RN:-VALKTESK( 1) ) 

GOSUB 100800 

GOSUB 10078 
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3485 
3490 
3500 
3510 
3520 
3530 
3700 
3710 
3800 
389889 
40080 
4002 
4005 
4010 
4020 
4030 
4040 
4050 
4080 
4070 
4080 
4090 
4100 
4110 
41820 
4130 
4195 
4140 
4200 
4210 
4220 
4230 
4240 
4250 
4280 
4270 
4280 
4280 
4380 
4310 
4338 
4340 
4345 
4350 
4360 
4375 
4385 
4390 
4405 
4415 
4420 
4430 
4440 
4442 
4444 
4450 
4460 
4470 
4480 
4490 
4498 
4494 
4999 
5000 
5002 
5005 
5010 


FOR 151 TO B:TE$(IJSzTXS(IDITKÉK 1) 2" "tNEXT 

IF DW:O AND VAL(TES(1))-BOB THEN DW-1:G08UB53680 : GOTOZ5 10 
IF DW-O AND VALKTES$(1))2)799 THEN DWs:e:6G60S8UB7OO5 : B0TO3520 
IF DW4s1 THEN GO08UBS520 : GO0TO3530 

IF DW:2 THEN G608UB7 128 

GOTO38005 

IF DWUzi THEN 608UB55890:!GOTOZ38BOB 

IF DUu:2 THEN 608UB7190 

DU:O1DV:0O 

CLOSE 4:CLOSE 8:CLOSE 15:GOTO300 

OPEN15 ,8 , 1510PENB , 8 , 8 , "OLADATOK " 

GOSUB 12000 

PRINT CHR$(147) 
PRINT"ERERKEGEEKEEBEERŰLLERREZEE Ek kek kkkkkk" s 
PRINT" 4 ADATFELDOLGOZÓ PROGRAM 1.6 Lé 
PRINT" ÉGEGEKRELEÉEEZEEEKEREK EZEL RAK kát kk kk"? 
PRINTSEPRINT 

PRINT TABKCB) 3 "ARUCIKK-LISTA NYOMTATÁSA. ":PRINTIPRINT 
FOR Iz1 TO2 

TE$CI)a" 

PRINTTTSK(I)I 

INPUTTE$KI) 

PRINT 

IF TE$S(!1)a"VEGE" THEN 4989 

IF LEN(TE$(I)))TT(I) THEN 4878 

NEXT 

TES(3)a" "ETE$S(4)ma"" 

IF DUs:1 THEN RETURN 

PRINT CHR$(147) 
PRINT"GEGÉGEKEGRERBŐKETÜEE LEE kk e kkel kk kk kkkk 
PRINT" a ADATFELDOLGOZO PROGRAM 1.0 a" 
PRINT" EEGBEGEREGÉGEVEREBEZBEREEEEKE ERRE ERRE kk tk") 
PRINTIPRINT . 

PRINT TAB(B)I "AZ ARUCIKK-LISTA NYOMTATASA., ":PRINT:PRINT 
PRINT"A NYOMTATO BE VAN KAPCSOLVA (1/N)? "; 
GETASI IF A$z"" THEN 4270 

IF A$CD"1" THEN 4270 

PRINTAS 

OPENY , 4 

PRINTWHA , "FILIALE NR. "ITE$(1)J 

PRINTH4 , CHR$( 18) 3 "20" 3 "DATUM. "I TE$(2)J 

PRINTH4 , CHR$( 16) 3 "40" 3 "SZAMLASZAM "ITESGK(3)? 
PRINTH4 , CHR$S( 16) 3 "80" " TECS"IJTES(4) 

PRINTWA , 

PRINTHWA , "CIKKSZAM "9 

PRINTH4A , CHR$( 1621 "20"3 "ÁRUTIPUS "5 

PRINTHW4 , CHR$( 1623 "B8"3"TECB" 

PRINTHA ,"-—--—---- "; 

PRINTH4 ,CHR$( 189) "2O"J"--—-—— "gy 

PRINTHA , CHR$( 16231 "BO"73"----r 

FOR RN:1 TO 889 

GOSUB 109000 

GOSUB 18030 

IF VAL(TE$(1))XIRN THEN 4480 

IF LEFT$(TE$(2),1)2"g" THEN 4480 

PRINTHA4 ,TE$(12)? 

PRINTH4 , CHR$( 162) "2B"IJTE$(2)? 

PRINTH3 ,CHR$( 16) "BO"ITER(3) 

NEXT 

FOR Izi TO3 

PRINTHW4 , 

NEXT 

CLOSE 4:CLOSE 8:CLOSE 151:G60T0300 

OPEN15 ,8 , 15:0PENB , 8 , 8 , "OT ADATOK " 

GOSUB 12000 

PRINT CHR$(147) 

PRINT" $S4ttttittkkklttkakttt tk tE KE Rt EE Et E kk"? 
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PRINT"e ADBATFELDOLGOZO PROGRAM 1.€ "s 
PRINT" EtGEttItEEEIKEREEETELELEEELÉEttEttitttkt" 
PRINTSPRINT 

PRINT TABC(B):"A KIERTEKELES NYOMTATORA.":PRINTEPRINT 
FOR I-i TO 4 

TESC1I)z"" 

PRINTTT$S(I); 

INPUTTESK(I) 

PRINT 

IF TESC(1):5"VEGE" THEN 5999 

IF LENKTES(IJ)ÖTT(I) THEN 50978 

NEXT 

1F Dusi THEN RETURN 

PRINT CHR$(147) 

PRINT" tttttttttttittitütttitkiitttüttkttiiiztttrt"? A új 
PRINT" £ ADATFELDOLGOZO PROGRAM 1.0 isi GAS 
PRINT" Etettiritttttttt itt tEttrE Eztet ttt" I 
PRINTEPRINT s 
PRINT TABCB)3"A KIERTEKELES NYOMTATÁSA. "IPRINTIPRINT 
SA-OLSE-O:1SG-O:SF OL SH-O 

FOR Izi TO 4trMiCI)-OIMEÉK I) :8:NEXT 

PRINT"A NYOMTATO BE VAN KAPCSOLVA (I/N)"; 

SETAS:IIF A$-"" THEN 5278 

IF A$£)"I" THEN 5270 

PRINTAS 

OPEN , 4 

PRINTH4 , "FILIAR NR. "9TE$YC1)30 Méő 
PRINTH4 ,CHREC 18) 3 "2O"3 "DATUM ":TER(2)I PLÁNE 
IF DWaG THEN PRINTHA , t GOTOSZS5O 7 
PRINTHW4 , CHRS( 16) 7 "480 "3 "SZAMLASZAM "ITE$C3)I 
PRINTH4 , CHR$( 16) 3 "868" 3 "BERLETSZAM "3TES(4) 
PRINTHA , 

IF Diszi THEN RETURN 

PRINTW4 ,"CIK.SZ. "3 
PRINTW4 , CHRS(1627"10"3 "DB. "5 6 
PRINTW4 ,CHRS(1623"15"3"ARUTIPUS "7 ú 
PRINTHA ,CHR$( 1623 "40"3"EGYS.AR "3 
PRINTW4 , CHRS( 16) 3 "50": "OSSZ.AR "3 
PRINTH4 ,CHR$(16)3"68"3"EGYS.AR "5; 
PRINTW4 ,CHRS( 1823 770"3"OSSZ.AR" 

PRINTH4 ,CHR$C( 1623 "42"3"EK."3 

PRINTWHA4 ,CHR$( 1897 "5873 "EK. "3 

PRINTH4 ,CHR$( 16) "6273 "VK."2 

PRINTH4 ,CHR$( 16) 3 "7273 "VK." 

PRINTH4 ,"--—--— ag 

PRINTH4 ,CHRECIBI 3 "1073 7---—ny 

PRINTHA4 ,CHRSCI6)I "1573" 
PRINTH4 ,CHRSC16)3"40"3" 
PRINTWH4 , CHR$( 1695 "50"7." 
PRINTWH4 ,CHRS$( 1625 "BO"3" 
PRINTH4 ,CHRSC16)3"70"3" 
IF Dzsi THEN RETURN 
FOR RN-i1 TO 799 

GOSUB 10000 

GOSUB 10038 

IF VALKCTESC1))ORN THEN 5588 

IF LEFT$S(TE$S(2),1):"€" THEN 5588 
PRINTW4 ,TE$S( 1) 

PRINTHS ,CHRS( 16)" 10"ITES(C4)J 
PRINTH4 , CHRS( 1623" 15"ITES(2)3 
PRINTH4 ,CHRS( 16) 3 "40 "3TES(5) 3 
PRINTHA ,CHREC16)3"S50"ITES(B)? 
PRINTHA , CHR$S( 1623 "BO": TES(7) 3 
PRINTW4 , CHRS( 16)3"70"ITES(B) 
SA-SALVAL(TES(4) ) 
SESSEHVAL(TES(5)) 
SG:SGHVALCTES(G)) 
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7016, 
7020 


7040 
7050 
70680 
7070 
7075 
7080 
70909 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7171 
7172 
7173 
7175 
7180 
7190 
7200 
7210 


SFSSFHVALKCTES(7)) 
SH:SHIVAL(TESK(B)) 
IF VALKTESC3))JKI OR VALKTE$(3)))4 THEN 5579 

MICVAL(TES(3)) d női (VAÁL(TES(3) ) d 1 CVAL(TESCB ) ) $MEKVALCTESC3)))-VAL(TES(B) ) ) 
MECVALCTES(3) ) ) aMECVAL(TES(3) ) d 1(VAL(TES(B8) )-VALCTESCB) )/MEKVAL(TE$(3)))) 
IF Disi1 THEN RETURN 

NEXT 

PRINTOS ; Tea sssnönásés es bé 

PRINTW4 ,CHRSC156)9"10"739-———-"; 

PRINTÚA4 ,CHR$SC16I23"15"73"7- 
PRINTB4A , CHR$S( 1823 "40" "- 
PRINTO4 ,CHRS(C16)3"5073"- 
PRINTH4A , CHR$( 16) 1 "6879 "- 
PRINTB4 , CHR$S( 1633 "70797-——————- dl 
PRINTBA , "OSSZESEN! "? 

PRINTHA , CHR$S( 18) "08" 1587 

PRINTH4 ,CHRBC 18) "38"J8E7 

PRINTW4 ,CHRS- 1823 "49"3505 

PRINTÚ4 ,CHRSC 1821 "59"38F 

PRINTHA , CHRB( 1623 "689" 38HI 

FOR Izi TO 31PRINTUA , 3 NEXT 

PRINTW4, "TECS. EK B,5 / m "9MIC1)I 

PRINTHA4 ,CHRSC18B27"40"7"3"TECB. EK. 7 / zm "3MIC3) 
PRINTUHA , "TECS. EK. 13,0 V. a "3MIC2)I 

PRINTBA , CHRSC186)3"40"3"TECB. EK. 14 7 z "JMI(4) 
PRINTW4 , "TECS. VK. B,5 / z "IME(1)I 

PRINTHA ,CHRSC16)3"486"1"TECB. VK. 7 / ma "JMRX3) 
PRINTHA , "TECS. VK. 13,8 4 a "JMRC2)I 

PRINTHA ,CHRS( 1827 "48"3"TECS. VK. 14 — z "IJMEK4) 

FOR Iz1 TO 3:PRINTOA , HINEXT 

PRINTHA , "OSSZ.AR EK. za "IBGOMIC2)OMICZIMICZ)9MIX4) 
PRINTBA , "OSSZ.AR VK. ma ":8H-MRC(1)-MR(2)-MRC3)-MEC4) 
FOR In1 TO 3:PRINTOA , HI NEXT 

IF Otini THEN RETURN 

008U8760060 

CLOSE 4:CLOSE BIECLOSE 15:GOTO 306 

CLOSE 4trCLOBE BICLOSE 15 

PRINT CHR$SK147) 

END 

$1:601825:06 

PRINTUA , "CIKKSZAM" J 

PRINTHA4 , CHR$(1623"15"5 "CIM e 

PRINTHA4 ,CHRSC 16) 3 "409"3 "KIADAS" I 

PRINTU4 , CHR$C( 16) 3 "BO" 3 "BEVETEL" 

PRINTWHA ,"—————-— gl 

PRINTW4 ,CHRSC16)3"715797---") 
PRINTW4 , CHRSK( 18) "4079 7—————— gi d 
PRINTOB4 , CHR$( 1623 "80" 3 7"——————- a 

IF DW:2 THEN RETURN 

FOR RN-800 TO 899 

GOSUB 10000 

GOSUB 10930 

IF VALKTE$(199XKIRN THEN 7180 

PRINTH4 ,TE$K1)7 

PRINTWH4 ,CHR$(1627"15"3TE$(2): 

PRINTHA ,CHRS(18)7 "40"3:TES(S5); 

PRINTHWH4A , CHR$( 1627 "BO"ITE$(7) 

SIZSI4VAL(TES(5)) 

S2ZSSZ1VAL(TES(7)) 

IF VAL(TES(3))C1i OR VAL(TE$(3)))4 THEN 7175 
MECVALKTESK(3) ) ) zMEKVALKTES(3))) $(VALKTE$(729-VAL(TE$S(7))/MEKVAL(TES(3)))) 
MICVAL(TE$(3)) d sMICVALKTES$(3)))4(VALKTE$(52)-VAL(TE$(5) )/MECVALKTE$(32))) 
IF Du:2 THEN RETURN 

NEXT 

PRINTŐÁ 2 See öss ertse e "3 

PRINTWH4 /CHRSCIB)3"15"35"-——" s 

PRINTWA4 ,CHR$S(16)1"40"57" 
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7ee0 
7e30 
78240 
7e50 
72eBe 
7270 
7e80 
7e90 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7999 
8000 
8010 
802e 
8030 
8940 
eese 
8060 
80760 
807e 
8074 
8076 
8080 
8090 
8100 
8110 
8120 
es5se0e0 
8510 
es5e0 
es30 
8540 
es50 
8560 
8570 
e580 


10000 
16010 
10015 
10020 
10030 
10060 
10070 
10072 


PRINTHA ,CHR$C 1633 "BO"3"--—-——-- 8. 
PRINTY4 , "OSSZESEN: " ; 

PRINTH4 , CHR$( 182: "39"7S15 
PRINTH4 , CHR$( 1623 "59"7Ss2 

FOR Izi1 TO 3:PRINTH4A , SNEXT 

PRINTWH4 , "TECS. EK. 6.5 / zs "3MI(1I); 

PRINTH4 , CHR$( 1697 "40"3"TECS. EK. 7 5 z "IMIC3) 
PRINTWH4 , "TECS. EK. 13,0 / s "3:MIC2)? 

PRINTH4 , CHR$( 1697 "409"73"TECS. EK. 14 / sz "?MIK4) 
PRINTH4Aá , "TECS. VK. 6.5 / z "IMRECI)DI 

PRINTHA , CHR$( 1693 "40"3"TECS. VK. 7 / z "3MeX3) 
PRINTH4A , "TECS. VK. 13.80 / za "JMEK2)I 

PRINTH4A ,CHR$(16)3"40"3"TECS. VK. 14 / m "1 M2K4) 
FOR 1-1 TO 3t:PRINTW4 , : NEXT 

PRINTHWA , "KIADAS z "781-MIC1D9-MIXC2)-M1IC3D-MIK4) 
PRINTHWA , "BEVETEL z "152-MRKC1)-MRXK2)-MRC3)-MRC4) 
FOR I:1 TO 3:PRINTW4 , "tNEXT 

RETURN 

PRINT CHR$(147) 

PRINT" EEREGEGEREKEREZÉETEE ETELE EKEEEEEEEEEEEEE"] 


PRINT" a ADATFELDOLGOZO PROGRAM 1.0 k"z 
PRINT"tititittitittitittiiikitttikkiitktkrktitkkk"? 
PRINT: PRINT 


PRINT TABC8B)3"A PENZTARBLOKKOK BEVITELE. "i1PRINTIPRINT 
SAAB! 5E:0:SG:OLSF:01SH:-0:S1:0:S2-O 

FOR I:1 TO 4 

MIKXID:0 

MecI):0 

NEXT 

PRINT"A NYOMTATO BE VAN KAPCSOLVA (I/N)? "4 
GETA$IIF A$:"" THEN 8090 

IF A$C)"1" THEN 8090 

PRINTAS 

OPEN4 , 4 

PRINT CHR$(147) 

PRINT" $EGREHERGEREZEKEZZK TERET EE kk tetek tt tka" 


PRINT" 4 ADAÁTFELDOLGOZO PROGRAM 1.8 a" 
PRINT" EEtKREKEEGEETEEELEZEEEEÉL tte kt ett tttkk" 
PRINTtIPRINT 


PRINT TABCKB)3 "A PENZTARBLOKKOK BEOLVASBSA."IPRINTIPRINT 
OWz1:GOSUB 5080 
DUzi11GOSUB 53101DU-OD 
RETURN 
HB: INT(RN/256) : LB5RN-HB:256 
PRINTW15S,"P"41CHR$SCB) 1CHR$C(LB ) 1CHR$(HB) 1CHR$( 1) 
GOSUB 12000 
RETURN 
INPUTW8 , TE$C1) , TE$(2) , TE$(3) , TE$(4) , TE$(C5) , TE$(6) , TE$(7) , TES(B) 
RETURN 
TESSTE$(1)1CHR$(13) tTE$(2) 1CHR$( 13) 1TE$(3) 1CHR$( 13) 1TE$(4)41CHR$( 13) 
TE$ZTE$tTTES(S) tCHR$( 13) 1TE$S(B) 1CHR$( 13) 1TE$(7)1CHR$( 13) tTE$(B) 


10080 PRINTW8,TE$ 


10110 
12000 


RETURN 
INPUTHIS.X,X$,YS,25 


12030 IF X:8 THEN CLOSE 8t:CLOSE 151RETURN 


12040 
128060 


FOR I:1 TO 6000£:NEXT 
GOTO 100 
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8.4 Egy másik módszer: a közvetlen hozzáférés 


Az adatkezelésnek ezt a módját sajnos gyakran teljesen elhanyagolják, és az elhanyagolás 
oka abban rejlik, hogy ez a módszer valamivel bonyolultabb, mint a többi. Vajon érdemes-e 
mélyebben megismerni a közvetlen hozzáférési műveleteket, tulajdonképpen mire használha- 
tók? 


1) Saját szervezésű file-ok létrehozására — random file-ok 
A random file-típus egyesíti a soros és relatív típusok előnyeit, azok hátrányai nélkül. 


2) A lemez egyes szektorainak közvetlen kezelésére (írására/olvasására) 
Az utóbbi olyan előnyökkel jár, amelynek jelentőségét az Olvasó az eddig közölt ismeretek 
alapján nem mérheti fel, ezért erre részletesebben kitérünk. 


1. Közvetlen elérésű (random) file-ok 


A soros és relatív file-okkai szemben a random file minden rekordja 256 byte — azaz egy 
adatblokk — hosszúságú. 

A random file tehát összesen 664 blokkot tartalmazhat. Ennek ellenére kisebb rekordokkal 
is dolgozhatunk, ha egy blokkba több rekordot helyezünk el (négy, egyenként 64 byte-os 
rekordot). Adatkezelés közben arra azonban ügyelnünk kell, hogy minden műveletnél (írás/ 
olvasás) a közvetlen hozzáférésű utasítások egy blokkot (256 byte-ot) kezelnek egy egység- 
ként. A random file szerkezetét a programozónak kell meghatároznia. Ahhoz, hogy az 
adatblokkokat közvetlenül feldolgozhassuk, feldolgozás előtt létre kell hoznunk egy soros 
file-t, amelyben az adatblokkok lemezcímeit tároljuk. Összesen három file-t kell megnyitni. 


1. Az adatblokkok címét tartalmazó file-t. 
2. A parancsfile-t. 
3. Az adatfile-t. 


2 REM títtt P72. 446463 

) Sá 

2 3 

10 OPEN 4,8,4,"CBM 64 FILE,S,W": REM SZEKVENCIALIS ADATFILE 
20 OPEN 15,8,15: REM PARANCSCSATORNA 

30 OPEN 5,8,5,"4": REM ADAT-FILE 

40 TE$z-"DATA BECKER GMBH" 

59 PRINTH5,TE$;5",";í: REM SZOVEG, REKORD 

60 T-1i:S-1: REM SAV-1:SZEKTOR-1 

70 FPRINTH1S,"B—A:":0,T,S: REM EGYSEG, SAV, SZEKTOR 

89 INPUTHÍSSER,NA$,TR,BL: REM A HIBACSATORNA LEOLYASASA 
90 IF ER-65 THEN T-ETR:S-BL:GOTO 70 

199 PRINTHIS,"B-W:"55,O,T,S: REM EGY REKORD FELIRASA 
119 FRINTHA4,T5",":S 

129 CLOSE 5 

130 CLOSE 15 

140 CLOSE 4 

152 END 


Mit csinál a fenti program? Megnyitja a szükséges három file-t, ezután elhelyez egy szöveget 
a TES változóban, és tárolja az átmeneti adatterületen (pufferben). Az 1-es sáv 1-es szektorá- 
tól indulva szabad blokkot keres a lemezen (70-es sor). A B-A utasítással megpróbálja 
lefoglalni az adott biokkot, majd a következő INPUT it utasítással leolvassa a hibacsatornát. 
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Ha a hibakód 65, akkor a blokk foglalt, tehát a keresés folytatódik. Ha a blokk szabad, a 
program felírja erre a területre a szöveget, majd az adatblokk címét (sávot és szektort) felírja 
a soros file-ba, ezzel biztosítva, hogy a továbbiakban a közvetlen hozzáférésű utasítással 
felírt információt visszaolvashassuk. A file-ok lezárása után a program futása véget ér. 


Hogyan olvassuk vissza a felírt adatblokkot? 
d REM xtxx F73. KRXXEV 
e Ket] 
2-6 
19 OPEN 4,8,4,"CBM 64 FILE" 
20 OPEN 15,8,15 
30 OPEN 5,8,5,"t" , 
40 INPUTHAST,S: REM A CIM BEOLVASASA 
50 FRINTH1I5,"B-R:"$5,0,T,5 
60 INPUTTS,TES,RE 
70 PRINTHIS,"B-F:"50O,T,S 
89 CLOSE 5 
99 CLOSE 4 
100 -PRINTH15,"S:CBM 64 FILE" 
110 CLOSE 15 


A file-ok megnyitása után. a soros file-ból beolvassuk az adatblokk címét, majd B-R utasítás- 
sal beolvassuk a szöveget a kapott lemezcímről a pufferbe, onnan a TE$ változóba. Végül 
felszabadítjuk az adatblokkot — amit természetesen csak akkor kell megtenni, ha az adat- 
blokk tartalmára a továbbiakban már nincs szükségünk. Végül lezárjuk a file-okat, töröljük 
a soros file-t és lezárjuk a parancscsatornát. 


2. Közvetlen lemezkezelés 


Ahogyan a cím is mutatja, ezekkel az utasításokkal a lemez tetszőleges sávjának, szektorá- 
nak tartalmát közvetlenül beolvashatjuk, ill. tetszőleges információt írhatunk bele, anélkül, 
hogy bármilyen file-t meg kellene nyitnunk. Beolvashatjuk pl. a lemez tartalomjegyzékét, amit 
eddig csak a LOAD "$", 8 utasítással tudtunk megtenni, felülírva a tár aktuális tartalmát. 
Megváltoztathatjuk a lemezen tárolt programot anélkül, hogy be kellene olvasnunk az egé- 
szet a tárba - akaratlanul elrontott programokat, file-okat helyreállíthatunk stb. 

Ezek a műveletek veszélyesek lehetnek azoknak, akik nem ismerik tökéletesen a lemez 
felépítését, a tartalomjegyzéket, a BAM-ot, ill. a programok tárolási módját. Egy rossz helyre 
célzott lemezreírással az egész lemez tartalmát meg lehet semmisíteni. Hogy ez ne következ- 
hessen be, javasoljuk, tanulmányozza át az Olvasó , A VC 1541-es lemezegység programozá- 
sa" c. könyvet." Ha mégis kísérletezni szeretne a közvetlen lemezműveletekkel, feltétlenül 
olyan lemezt használjon, amelyen nem tárol értékes információt! A közvetlen hozzáférésű 
(random) utasítások: 


Megnevezés Szintaktika 

BLOCK-READ (1 blokk olvasás,) "B-R:"; csatorna; egység; sáv; szektor 
BLOCK-WRITE (2 blokk írás,) "B-W:"; csatorna; egység; sáv; szektor 
BLOCK-ALLOCATE (3 blokk lefoglalása) "B-A:"; egység; sáv; szektor 
BLOCK-FREE (4 blokk felszabadítása) "B-F:"; egység; sáv; szektor 


BUFFER-POINTER (5 blokkmutató beállítása) "B-P:"; csatorna; pozíció 


" Eredeti címe: Das grosse Floppy Buch (DATA BECKER, 1983). Megjelent magyarul a NOVOTRADE RT. 
kiadásában, 1985-ben. (A szerk.) 
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8.5. Egy lezáratlan file megmentése 


Hozzátehetjük, hogy erre a műveletre túl gyakran nincs szükség. De ha mégis, igen nagy 
bosszúságot okoz. Miről van szó tulajdonképpen? 

Tegyük fel, hogy Ön fáradságos munkával rendszerezte a lemezgyűjteményét (most kivétele- 
sen zeneműveket tartalmazó lemezekről van szó) és a könnyebb keresés érdekében a 
lemezek címét egy soros file-ban, mágneslemezen szeretné tárolni. Mi sem egyszerűbb ennél, 
a már megszokott módon elkészíti az adatfelvivő programot (a lemezek számától függően 
egy vagy több soros file-t tervezve), majd bebillentyűzi az adatokat, ami, tegyük fel, hogy ez 
esetben 500 lemezcímet jelent. Amikor már majdnem készen van, a kedves felesége (férje) 
kikapcsolja a hálózati biztosítékot. Nem tesz semmit, gondolja Ön, hiszen a programon csak 
apró változtatást kell tenni (a W betűt az OPEN utasításban A betűre módosítani) és máris 
folytathatja a munkát. 

Sajnos a program indításakor hibaüzenetet küld a gép! A hibacsatorna lekérdezésére a 
válasz: WRITE FILE OPEN. Ha most megvizsgálja a lemez tartalomjegyzékét, látja, hogy a 
soros file típusmegjelölése után egy csillag helyezkedik el. Ez annyit jelent, hogy az írásra 
megnyitott file-t nem zárta le CLOSE utasítással. Valóban ez történt, hiszen az adatbevitel 
áramkimaradás miatt megszakadt, a program nem szabályosan ért véget. A hiba következ- 
ménye, hogy a soros file-t semmilyen szabályos BASIC utasítással nem lehet visszaolvasni. 
Az Ön lemeznyilvántartása tehát örökre elveszett! 

A helyzet azonban mégsem ennyire reménytelen! 

Bemutatunk egy olyan programot, amellyel az ilyen látszólag véglegesen megsemmisült 
file-okat helyre lehet állítani. 

Természetesen mint mindig, most is részletesen ismertetjük a programban használt változók 
jelentését, és az egyes programlépéseket. 


A felhasznált változók: 


E A file-név pozíciója a tartalomjegyzéken belül 

S A random utasításhoz szükséges szektorszám 

T A random utasításhoz szükséges sávszám 

TY A file típusa (T$-ból) 

X Futó változó a file-név meghatározásához 

A$ Munkaváltozó az S$ felépítéséhez 

F$ A kívánt file-név 

S$ A teljes szektor tartalma 

T$ A file típusa 

xX$ A tartalomjegyzékből beolvasott, üres karakterekkel 16 karakter hosszúságúra 


kiegészített file-név 
X1$ ua. mint X$ 


A program lépései: 


70 Az adatcsatorna megnyitása közvetlen eléréshez 
80 A parancscsatorna megnyitása 

100 A keresett file-név beolvasása 

110 A sáv- és szektorszám meghatározása 


A VC 1541-es lemezegység a tartalomjegyzéket a lemez 18-as sávján az 1-es 
szektorra helyezi a CBM 4040-hez hasonlóan. A 8050-es lemezegység ezzel szem- 
ben a 39-es sávra, tehát ha az utóbbival rendelkezünk, ezt a programsor: módosíta- 
ni kell. 
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120 AT, ill. S változókban megadott sáv-, ill. szektorszámú blokkot beolvassuk a puffer- 
be (a 0-ás egységről). 

150 A puffer tartalmát az A$-on keresztül (karakterenként) az S$-ba gyűjtjük. 

160 Egy szektor nyolc file-bejegyzést tartalmaz. Ezek között megkeressük a mi file- 
unkhoz tartozó bejegyzést. 

170 A bejegyzésből leválasztjuk a file nevét (16 byte-ot), majd az X$-ba töltjük. 

200-210 A file-név végét a CHR$(160) karakter jelzi (SHIFT -H SPACE). 

220-230 Ha a keresett file bejegyzését nem találtuk meg, a keresés folytatódik, ha megtalál- 
tuk, elemezzük a bejegyzést. 

240-260 Minden szektor elején megtalálható a tartalomjegyzék következő adatblokkjának 
címe (sáv, szektor), ha még ilyen van. A sáv nulla értéke jelzi, hogy nincs több 
folytatóblokk, a tartalomjegyzéknek vége. 

300-310 Leválasztjuk a file-típust, majd a megfelelő numerikus értéket a T változóba töltjük. 

320 Ha T-—0, az adott bejegyzés üres. 

360 Az itt beállított bit volt minden baj okozója. Ez a bit jelzi ugyanis, hogy egy írásra 
megnyitott file le van zárva, vagy nincs. (A csillagot a DOS ennek a bitnek az értéke 
alapján írja ki!) 

370 Összeállítjuk a teljes szektort, amelyben a file-t lezártnak minősítettük 

390—-410 A puffermutatót visszaállítjuk, a szektort a pufferbe, majd onnan a lemezre írjuk. 

420-490 Néhány sor emlékeztetőül a program feladatáról. 


A program futtatása rendkívül egyszerű. 

Betöltjük a tárba, majd behelyezzük az elrontott file-t tartalmazó lemezt az egységbe (kettős 
meghajtó esetén a 0-ás egységbe). Elindítjuk a programot, majd beírjuk az elrontott file nevét. 
Ha a program megtalálja az adott nevű file-t a lemezen, a többi már az ő dolga. 


Néhány korlátozás: Ezt az eljárást sajnos relatív file esetében nem használhatjuk, hiszen a 
file-struktúra teljesen más. A relatív file megmentése bonyolultabb program megírását és a 
lemezszerkezet beható ismeretét igényli. 

Ha az elrontott file-t az alábbi programmal helyreállítottuk, a benne levő adatokat sorban 
végigolvasva átmásolhatjuk egy másik file-ba. 

A másolást mindenképpen célszerű megtenni, mert bár az adatok nem vesztek el, lehet hogy 
a tartalomjegyzékben egyéb hiba is keletkezett a hibás programfutás közben. Másolás után 
teljesen nyugodtan alhat az Olvasó, a lemeznyilvántartása biztonságban van. 

Reméljük, hogy ez a program nemcsak egyszeri segítséget, hanem sok tanulságot is nyújtott. 


0 REM txxx P7A4. txXEX 
b ebe: 


10 PRINT CHR$(147); 

20 PRINT CHR$(5); 

70 OPEN 2,8,2,"4t": REM KÖZVETLEN ELERES 

80 OPEN 15,8,15: REM FARANCSCSATORNA 

90 FRINT:FRINT 

109 INFUT "FILE NEVE ":F$:FRINT:FPRINT 

110 T-18:S§-1:REM 1541 TARTALOMJEGYZEK txT-39 A CBMABB50G-EN 
120 FRINTHIS,"UL 2 O"T;S: REM OLVASAS 

130 S$-"": REM A BEOLVASOTT SZEKTOR 

140 : : REM SZEKTOR 

150 FOR 1-1 TO 255:GETH2,A$:S54£—-S$HLEFT$(A$FCHRE (B) , 1) z NEXT 
160 FOR I-9 TO 7: REM 8 BEJEGYZES 

170 X$-MID£E(S£,I45246,16):X1$£-X$ 

189 REM A FILE-NEV LEVALASZTASA 
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199 Xz1 
200 IF MID$(X$,X,1)COCHRÉ(16O)THENXEX-t1:IF XC17 THEN 209 
210 X$§-LEFT$(X$,X-1) 

220 IF X$zF$ THEN E£-I:GOTO 309 

230 NEXT I 

240 T-ASC(S£) : S-ASC(MID$(S$,2,1)) 

250 REM A KÖVETKEZŐ SZEKTOR OLVASASA 

260 IF TC3O THEN 120 

279 REM VEGE 

280 PRINT "AZ "F$" FILE NINCS EZEN A LEMEZEN !" 

298 CLOSE 2:CLOSE 15:END 

300 T$-MID£$(S£t,Ex324-3) 

319 TY-ASC(T4$) AND 15 

320 IF TY-0 THEN NEXT I:GOTO 249 

350 IF TYCD4 THEN 340 

335 PRINT "RELATIV FILE-T NEM TUDOK MASOLNI !" 

337 GOTO 290 

340 TY$-"DELSEOFPRGUSRREL " 

350 PRINT "FILE "XI£$" "MID$E(TY$,TYX3-1,3):PRINT 
360 Tt-CHRX(ASC(T$) OR 128) 

270 S£zZLEFTE(S$,Ex3241)4T$tMID$(S$,Ex32-43) 

380 REM $ TÖRLES ES VISSZAIRAS 

290 PRINTH1IS,"B-P 2 O/T;S 

AB FRINTH2,S$; 

410 PRINTHIS,"U2 2 O"T;S 

479 CL0OSE 2:CLOSE 15 

425 PRINT "AZ ADATOK BEOLVASHATOK." 

430 FRINT "AZ ERVENYES ADATOK MASOLASA UTAN" 

440 FRINT "A KOVETKEZO UTASITASOKAT LEHET MEGADNI :" 
450 FRINT 

460 FPKINT "OPEN 15,8,15" 

470 PRINT CHRÉE(17) "PRINTHIS,"CHRE(34) "S: "F$CHRE(34) 
480 FRINT CHR$É(17) "PRINTH1S,"CHRÉC(Z34) "VO"CHRE (34) 
499 PRINT CHRÉ(17)"CLOSE 15" 

500 END 
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9. FEJEZET 
A POKE ÉS MÁS HASZNOS RUTINOK 


9.1. A kazettapuffer mint a program tárolására alkalmas 
hely 


Ha valaki egy BASIC programot gépi kódú, programmal együtt szeretne használni, el kell 
döntenie, hogy a tárban hová helyezze a gépi kódú programot. A tárterület kiválasztásánál 
ügyelni kell arra, hogy azt a BASIC programok vagy változók nehogy felülírják. Vagy olyan 
területet kell keresnünk, amit a BASIC interpreter nem használ, vagy módosítanunk kell a 
BASIC kezdő- és végcímet. 

A tárban három olyan terület van, amelyet a BASIC nem használ, ezek közül az egyik a 
kazettapuffer. 

A kazettapuffer a 828-as címtől az 1019-es címig helyezkedik el ($033C — $03FB). Ezt a 
területet csak azok a programok használják, amelyek a .kazettás egységen dolgoznak. Itt 
tehát rendelkezésünkre áll 192 byte gépi kódú programok tárolására. Mivel a 13-as, 14-es, 
ill. 15-ös sprite-ok a kazettapuffert használják, ha olyan programot írunk, amely dolgozik 
ezekkel a sprite-okkal, erre a területre nem helyezhetünk gépi kódú programot. A 11-es sprite 
adatait a rendszer a 704-től 767-ig ($02CO, $02FF) terjedő 64 byte-nyi területre helyezi. Ha 
a 11-es sprite-ra sincs szükségünk, ezzel a területtel is szabadon gazdálkodhatunk. A BASIC 
interpreter fölött, 49152-től 53247-ig ($C000, $CFFF) terjedő 4 kbyte-os szabad RAM terüle- 
ten általában hosszabb gépi kódú programokat szoktunk elhelyezni. 

Ha csak néhány szabad tárcímre van szükségünk, pl. olyan változók tárolására, amelyek 
értékét a CLR és a NEW utasítások végrehajtása után is meg akarjuk őrizni, érdemes a 
képernyőtár , mögött" található 16 szabad byte-ot felhasználni. A képernyőtár 1 kbyte — 1024 
byte, a videoram pedig további 25640 — 1000 byte területet foglal el a tárban. A második 1 
kbyte-ból tehát 24 szabad byte marad, amelyből 8 byte-ot a sprite-mutatók lekötnek. A mara- 
dék 16 byte a 2024-es címtől a 2039-es címig ($07E9, $07F8) a programozó rendelkezé- 
sére áll. 

Előfordulhat, hogy olyan programot írtunk, amely olyan sok gépi kódú részt tartalmaz, hogy " 
azok nem férnek el a fent ismertetett szabad területeken. Ez még mindig nem jelenti a feladat 
megoldhatatlanságát. 

A BASIC területet ugyanis tetszőlegesen leszűkíthetjük néhány POKE utasítással, és az így 
kapott szabad területtel ismét szabadon gazdálkodhatunk. 

A BASIC interpreter a 43/44-es ($2B/$20), ill. 55/56-os ($37/$38) címeken tárolja a BASIC 
program kezdetének és végének mutatóit. Ezeket a mutatókat az alábbi utasításokkal írhatjuk 
ki képernyőre: 


PRINT PEEK (43) -- 256$PEEK (44) ill. 
PRINT PEEK (55) 4 256£PEEK (56) 
Az eredmény (ha az alapértelmezést nem változtattuk meg) 2049, ill. 40960. Tegyük fel, hogy 


1000 byte-ot akarunk felszabadítani, tehát a BASIC terület végét 1000 byte-tal lejjebb kell 
helyezni, azaz a mutatót 39960-ra kell beállítani. A módosító utasítások: 
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HB — INT (39960/256) : LB — 39960 — HBw256 
POKE 55, LB : POKE 56, HB : CLR 


A CLR utasításra feltétlenül szükség van, egyébként ugyanis a programban használt változók 
értéke helytelen lenne. Hasonlóan módosíthatjuk a BASIC terület kezdetét is: 


HB — INT (3049/256) : LB — 3049—- HBws256 
POKE 43, LB : POKE 44, HB : POKE 3049-1, 0 : NEW 


A NEW utasítás az összes BASIC mutatót helyreállítja. 
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9.2 A füzérek rendezése 


Gyakori programozói feladat az adatok, számsorok, nevek, címek stb. rendezése. Az iroda- 
lomban nagyon sok rendező algoritmust találhatunk, azonban nagy adathalmaz esetében 
ezek többnyire lassúak. Minél könnyebben érthető az algoritmus, általában annál lassúbb 
a rendezés. Ha valóban gyors rendezésre van szükségünk, a programot gépi nyelven kell 
megírni. Az összehasonlítás azt mutatja, hogy ugyanazt az algoritmust -- ugyanazt a feladatot 
— 100-szor gyorsabban valósíthatjuk meg gépi kódban megírt programmal, mint BASIC 
nyelvűvel. A következő gépi kódú programmal szöveges változókat rendeztünk abc-be. 
Használatának feltételei: 

1. A rendezendő füzértömböt DIM utasítással kell deklarálnunk. 

2. A tömb utolsó elemébe üres karaktert kell tenni. 

Az üres füzérre azért van szükség, mert a tömb számára lefoglalt helyet nem minden esetben 
használjuk ki teljesen. A program futási idejét az üres karakterek rendezése feleslegesen és 
alaposan megnövelné. Az általunk bemutatott program figyeli, hogy egy tömbelem üres 
karaktert tartalmaz-e, és ha igen, ezt tekinti a tömb utolsó elemének. 

Minthogy a program rövid, a kazettapufferbe helyeztük, így a SYS 828 utasítással hívható. 
Híváskor ellenőrzi, hogy a BASIC program első tömbje egyindexes füzérváltozó-e vagy sem; 
ha nem, a végrehajtást megszakítja. 

A gépi kódú program listája: 


0 REM tittx P75. diédtit 
14 


1090 : 0SSC 47 828 

105 : 053C : FT. Fi 

119 : 033C Ag 09 LDY 40 

120 : 035E BA 2F LDA ($2ZF),Y ;AZ ELSO BETU 
430 : 0549 30 0D BMI Lí 

149 : 0342 CB INY 

159 : 03545 Bi 2F LDA ($2ZF),Y ;5A MASODIK KARAKTER 
1609 : 0345 109 08 BPL. Li 

170 : 0347 AO 04 LDY 44 

180 : 0349 Bi2F LDA ($2F),Y ;DIMENZIOK 
199 : 034B C? 01 CMP  4$Ii 

200 : 034D FOG O01 BEG LZ2Z 

210 : O34F 60 eI RTS 

220 : 0550 18 L2 CLC 

230 : 0551 AS 2F LDA $2F 3 TOMBKEZDET 
2409 : 0553 69 07 ADC §$7 3 PLUSZ 7 

250 : 0555 §5 6E STA 3$6E 

260 : 0557 A5 50 LDA $530 

270 : 0359 69 00 ADC 4XO 

280 : 0358 85 6F STA $6F 

2909 : 035D Ap 00 LS LDY 4§O 

500 : 035F Bi 6£ LDA  ($6E),Y 

310 : 0361 FOEC BEG L1 5A HOSSZ NULLA KESZ 
3209 : 0363 85 22 STA §$22 

330 : 0365 CB L4 INY 

3409 : 0366 B1 6E LDA (£$6E),Y 

350 : 0368 99 22 00 STA $Z2Z2;/Y ; MUTATO A FUZERRE 
360 : 036B CO 02 CPY 4§2 

379 : 036D DO F6 BNE .L4 

Z80 : 036F AS 6E LDA $6E 

399 : 0371 §5 71 STA $71 

400 : 0373 A5 6F LDA $6F 

410 : 0575 §5 72 STA §$72 

AZ20 : 0377 18 L5 CLC 

430 : 0378 A5 71 LDA §$£$71 


440 : 037A 69 0Z 

450 :; 037C §5 71 

4609 : 037E 90 02 

470 : 0389 E6 72 

4ABO : 0382 AWE 09 L6 
499 : 0384 BI 71 

599 : 0386 FOG 3D 

519 : 0388 85 4D 

529 : O58A C5S 22 

539 : OZBC 99 02 

549 : O38E A5 22 

550 : 0399 85 55 Lá d 
569 : 0592 CS L8 
570 : 0393 Bi 71 

589 : 9395 99 4D 00 
599 : 0398 CY 02 

690 : O39A DO F6 

610 : 039C Ag 00 

629 : O39E Bi 23 L9 
6309 : OZAG DI 4E 

640 : OZAZ FO 04 

6509 : O3A4 BO OB 

668 : OZAG 99 CF 

665 : 

670 : O3AB CB L10 
680 : OZAT C4 55 

699 : OZAB DO Fi 

700 : OZAD C4 22 

710 : O3AF BB C6S 

729 : O3B1I Ag 02 L11 
730 : G3B3 Bi1 6E L12 
740 : 0385 AA 

750 : O3BÓó Bi 71 

760 : O3BB 91 6E 

770 : O3BA 99 22 09 
7809 : O3BD 8A 

799 : O3BE 91 71 

999 : 053CG 88 

BIG : O3ICI 19 FO 

829 : 93C3 39 B2 

839 : 93C5 18 L13 
849 : G3Có6 AD 6E 

859 : 0ICB 6905 

869 : OSCA 85 6E 

870 : G3CC 98 8F 

889 : O3CE E6 6F 

999 : 03DG DO 8B 
READY. 


A BASIC betöltőprogram: 


0 REM títtt F7bh. 963tdbát 
§x-§ 

2 
FOR Iz828 TO 977 

READ X:POKE I,X:S5-StX:NEXT 
DATA 160, 0,177, 47, 
DATA 4,177, 47,201, 
DATA 7,1535,1190,165, 
DATA 119,240,236,153, 
DATA 
DATA 
DATA 
DATA 


1,2 
48,1 


169,115,195, 


40, 
05, 


3,133,113,144, 
177,113,249, 61,133, 77,197, 
133, B5,209,177,113,153, 77, 


3 
$71 
L6 
$72 
10 
($71) ,Y 
ÉS 
$4D 
$22 


48, 13,2900,177, 47, 16, 
96, 24,165, 
9,133,111,160; 
34,2090,177,119,153, 34, 
2,208,246,165,119,133,113,165,111,13533,114, 24 
2,239,114,1609, 8 
534,144, 
0,192, 


1, 


:170 


3 HAROM HOZZAADASA 


; HOSSZ f 
; OSSZEHASONLITAS AZ ELSO HOSSZAL 


7A HOSSZAK OSSZEHASONLITASA 


5A FUZEREK OSSZEHASONLITASA 
3 HA EGYENLOEK ,AKKOR TOVABB 

3 HA NAGYOBB,AKKOR CSERE 

5 HA KISEBB,AKKOR ATLEPES A 

3; KOVETKEZO FUZERRE 


5AZ OSSZES KARAKTER EGYENLŐ 


AZ ELSO FUZER HOSSZABB 
;HA NEM ,AKKOR OK. 


; A FUZERMUTATOK CSEREJE 


$ MUTATÓ A KOVETKEZO FUZERRE 


8,160 
47,105 
9,177 
9,192 


2,165, 34 
2,298,246 


209 DATA 160, 0,177, 35,209, 78,240, 4,176, 11,144,207 
210 DATA 299,196, 85,208,241,196, 34,176,198,160, 2,177 
220 DATA 119,170,177,113,145,110,153, 34, 0,138,145,113 
230 DATA 136, 16,249, 48,178, 24,165,119,105, 35,133,110 
240 DATA 144,143,230,111,208,139 

259 IF 8£317663 THEN PRINT "HIBA A DATA SORBAN..!!":END 
260 PRINT "OK..!!" 


A gépi kódú rutin végrehajtási sebességét az alábbi BASIC programmal szeretnénk bemutat- 
ni, amely egy füzéreket tartalmazó tömböt rendez, majd a rendezett sort, ill. a rendezési időt 
kiírja a képernyőre. 

A füzérek számát és hosszát előre megadhatjuk. 


0 REM dixi P77.  t4titbt 

4." 

2: 

100 INFUT "SZAM, HOSSZ ";ASL 

119 DIM A$(A) : A-A—1 

129 FOR I-9 TO A 

139 FOR J-1 TO RND(1) 6 

140 A$(I)-A$( I) FCHR$E(RND(1) x26t65) 

150 NEXT:NEXT 

160 FOR I-09 TO A:PRINT A$(I):NEXT 

170 T5-TI:SYS B8ZB8:T-TI-T 

180 PRINT "RENDEZESI IDO "T/60" MASODPERC" 
199 FOR I-O TO A:PRINT A$(I):NEXT kö 


Próbáljuk ki a programot különböző számú és hosszúságú füzérváltozókkal. Azt fogjuk 
tapasztalni, hogy 100 füzér rendezését kevesebb, mint egy másodperc alatt végrehajtja, 
szemben egy BASIC programmal, amelynek hasonló feladat végrehajtásához. általában 
legalább egy percre van szüksége. 

A gépi kódú program használatakor ne feledkezzünk meg az üres füzérről! 
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9.3 Az indexes változó legkisebb és legnagyobb értéke 


Gyakori feladat egy indexes változó legkisebb és legnagyobb értékének meghatározása. Ezt 
viszonylag egyszerűen, egy kis BASIC ciklussal meg tudjuk oldani. A ciklus lefutásához 
szükséges idő az elemek számával meglehetősen gyorsan nő. 

Tipikus feladat, amelyre célszerű gépi kódú rutint írni! Az algoritmus ugyanaz mint a BASIC 
program esetében, de a végrehajtási idő nagyságrenddel csökken. 


9 REM tt4x P7B. 4636363E 

$-t 

őő 

109 DIM A(N) 

299 GOSUB 1999 

1099 MIN — A(0) 

109019 FOR I-1 TON 

1929 IF A(I) c MIN THEN MIN — A(I) 
1939 NEXT 

1049 RETURN 


A 100-as sorban az A indexes változót N felső indexhatárral deklaráltuk. Az 1000-es sorban 
kezdődő szubrutinban a 1010-es sorban keressük a legkisebb elemet. Ha a legnagyobb 
elemet akarjuk megkeresni, cseréljük fel a 1020-as sort az alábbira: 


1020 IF A(l) 2 MAX THEN MAX — A(]) 


az 1000-es sorba pedig MAX — A(09-t írjunk a MIN — A(0) helyett. 

A gépi kódú rutin nemcsak gyorsabb, mint a BASIC program, hanem paraméterezhető is. 
Hívásakor USR függvény-paraméterként átadhatjuk BASIC-ből az indexes változó nevét. 
A numerikus tömb tartalmazhat valós vagy egész típusú (A90) számokat. 

A programot a $C800-as címtől kezdve helyeztük el a tárban a szabad RAM teruletre. 


" 


0 REM titittt P79. XitXI 


8 

110 : 3 MIN/ZMAX FUGGYENY 

129 : CSOD INTFLG z 14 AZ EGESZ TIFUSU VALTOUZOK KAPCSOLOJA 
139 : C8A90O STORE z $26 

149 : CBAG ARRTAB z $2F 5; MUTATO A TOMBTABLAZATRA 

159 : C8S00 ARREND z $31 ; MUTATO A TOMBOK VEGERE 

169 : CSOD VARNAM z $45 ; VALTOZONEV 

170 : C800 TE z $5F 

1809 : CB80O0 SETARR z $B196 ; MUTATO A TOMB ELSO ELEMERE 

199 : CBAN MEMFAC z $4BBAZ :A KONSTANS BETOLTESE A FAC-BA 

2009 : CBA COMPARE  —- $BCISB :A KONSTANSOK OSSZEHASONL. A FAC-AL 
2190 : CB800 ERROUT aa $3A445 

2209 : CBOB INT z $14 jAZ EGESZ TIPUSU VALTOZOK CIME 

230 : CBO9 INTFLOAT -— $B391 :AZ EGESZ RESZ FAC-BA 

2409 : CBBO ez $3CBOD 

3099 : CBSON 5 A6 2F MINMAX LDX  ARRTAB 

310 : CS8O2 A5 30 LDA ARRTABtI ;MUTATOÚ A TOMBTABLAZAT KEZDETERE 
329 : CSO4 864 5F L3 EtXK TE 

3309 : CB0G 85 60 STA TEMPHFIi ;CIKLUSVALTOZÚ 

340 : COB CS 52 CMP — ARREND-I1 

350 : CS8OA DO 04 UNE Út 

360 : CSOC ES 531 COX ARREND ;VEGE A TOMBTABLAZATNAK 

370 : CSOE FOG 1íD BEG  NOTFOUND 

389 : CSB1g AD 00 Li LDY HO 
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DOC CEC TEK TK TEK LENN TEN TENY PENN TEN TK TT TK TEK VEK TT TC CNN TEK TR TK TB TEK TK 7 HNK T NN VT TENY TEN T NN VEL TEN PINK T NNTP NC TEN CEN T HST TENY TENI TEN TÉN HL TI 


€c812 
C814 
csi5 
C817 
Ccsi19 
CBSIB 
CSsID 
CBIF 
Ccs2zg 
C822 
cs2zs 
Cca25 
C826 
C827 
Cc8297 
CB82ZB 
cazD 
CB2F 
cs3zi 
cass 
Cs836 
cas37 
cssa 
Cs3A 
cszce 
CS3E 
CS3ZF 
C841 
c843 
c8s45 
C846 
C848 
CB84B 
C84D 
CB4F 
cs51i 
cs5z 
cs855 
Ccs5a 
CsS85A 
CsS85C 
CSSE 
CB61 
CB862 
C864 
CH66 
Ccs6g 
CB6A 
CS6C 
CB6E 
€878 
C872 
C874 
C876 
C€877 
c4879 
C87B 
Cc87C 
€C8s7D 
CB7F 
casgi 
cass 
c8384 
CBA6L 
csag 
casgA 
cssc 


Bi 5F 
cg 
CS 45 
DG 86 
A5 46 
Di 5F 
FG 17 
cs 
Bi 5F 
18 
65 5F 
RA 
cs 
Bi 5F 
65 68 
99 D7 
A7 B8 
85 22 
A7 CB 
4Cc 45 
cs 
18 
Bi 5F 
65 5F 
85 26 
C8 
Bi 5SF 
65 68 
85 27 
c8 
Bi 5F 
29 96 
s5 5F 
84 69 
24 9E 
38 24 
18 07 
29 5B 
19 07 
A5 5F 
A4 69 
29 AZ 
18 
A5 5F 
69 05 
s5 sF 
99 02 
E6 68 
A4 60 
CS 26 
Do E: 
C4 27 
Dg DF 
6 
Ag 09 
Bi 5F 
aa 
cs 
B1 5F 
as5 15 
86 14 
18 
A5 5F 
69 02 
85 5F 
99 932 
E6 69 


L2 


NOTFOUND 


Bi 


L4 


INTEGER 


Láz 


LDA 
INY 
CMP 
BNE 
LDA 
CMP 
BEC 
INY 
LDA 
CLC 
ADC 
TAX 
INY 
LDA 
ADC 
BCC 
LDA 
STA 
LDA 
JMP 
INY 
CLC 
LDA 
ADC 
STA 
INY 
LDA 
ADC 
STA 
INY 
LDA 
JSR 
STA 
STY 
BIT 
BMI 
BFL 
JSR 
BFL 
LDA 
LDY 
JSR 
CLC 
LDA 
HDC 
STA 
BCC 
INC 
LDY 
CMP 
BNE 
CPY 
ENE 
RIS 
LDY 
LDA 
TAX 
INY 
LDA 
STA 
STX 
CLC 
LDA 
ADC 
sra 
BCC 
INC 


(TEMP),Y ;A NEV ELSO BETUJE 


VARNAM — ; OSSZEHASONLITAS A KERESETT NEVVEL 
L2 

VARNAM: 1 

(TEMP),Y ;A 2.KARAKTER OSSZEHASONLITASA 
FOUND 3 MEGVAN 


(TEMP) ,Y 


TEMF jA REL.CIM (OFFSET) HOZZAADASA 


(TEMP) ,Y 
TEMP-r1 

Ú3 

$-CERRMSG  ;MUTATO A HIBAUZENETRE 
$22 

$ERRMSG 

ERROUT  5A HIBAUZENET KIIRASA 


( TEMF) ,Y 
TEMP 
STORE 


(TEMP) ,Y 
TEMP--1 
STORE4$1  ;MUTATO A TOMB VEGERE 


(TEMP),Y  ;DIMENZIOSZAM 
SETARR MUTATÓ AZ ELSO TOMBELEMRE 

TEMF 

TEMP41  5A MUTATO TAROLASA 

INTFLG ;A TIPUS ELLENÖORZESE 

INTEGER 

LPi 

COMPARE  :A TOMBELEM OSSZEHASONLITASA 
LOOP 

TEMP 

TEMP-r1 

MEMFAC  ;A TOMBELEM TAROLASA MIN/MAX-KENT 


TEMP 

5 5 MUTATO A KÖVETKEZŐ ELEMRE 
TEMF 

L4 

TEMF 41 

TEMFr1 

STORE 3A TOMB VEGE 

L5 

STORETr1 

L5 


40 EGESZ TIPUSU TOMB 
(TEMP) ,Y 


(TEMF) ,Y 
INT-1 ;AZ ELSO ERTEK BETOLTESE INT-BE 
INT 


ErÉ 

42 s; MUTATO A KÖVETKEZO ELEMKE 
TEMF 

L19 

TEMFt1 


173 


1960 : CSBE C5S 26 L10 CMP  STORE 

1970 : CBS899  D9G OD BNE L11 

1080 : C8972 A5 60 LDA TEMPtI 

1090 : Cg894 C5 27 CMP STOREti1 ;VEGE VAN-E 

1108 : C896 DO 07 BNE 411 

1110 : CS98B AS 14 LDA INT 3AZ EGESZ ERTEK BETOLTESE 
1129 : CS97A A4 15 LOY  ANTTI 

11598 : CB9C 4C€ 91 B JMP  INTFLOAT . ; KONVERTALAS 

1149 : CB89F AD 00 L11 LDY 48 

1150 : CSAL Bi 5F LDA (TEMP),Y 

1160 : C8AZ3 CS 14 CMP INT jA FELSO BYTE OSSZEHASONL ITASA 
1170 : CSA5 DO 07 BNE L14 

1180 : C8A7 CB INY 

1199 : CSBAB Bi SF LDA K(TEMP),Y 

1200 : C8AA E5 15 SBC INT-HI jAZ ALSO BYTE OSSZEHASONLITASA 
1219 : CSAC FO D5S BEM. Liz 

1228 : CSAE A? 01 L14 LDA §1 JA "NAGYOBB" KAPCSOLO 
1259 : CSBO 99 02 BCC Li3 

1249 : CBB2 A? FF LDA Ht$FF 3A "KISEBB" KAPCSOLO 

1259 : CBB4 50 Ci L15 BMI  INTEGER 

1260 : CSBB6 108 CB BPL. LAZ 

1270 : CBBAB 41 52 52 ERRMSG .ASC "ARRAY NOT FOUND" 

1280 : CBBB 41 59 29 4F 54 29 46 589 55 4F C€C4 


A BASIC betöltőprogram: 


0 REM d6s63é4 PER. 4646463E 

) HL s 

Sz éb 

199 FOR I-S1í1299 TO 51598 

119 READ X:POKEI,X:S-5tX:NEXT 

120 DATA 166, 47,165, 48,134, 95,133, 96,197, 59,208, 4 
139 DATA 228, 49,240, 29,168, 0,177, 95,2900,197, 69,208 
140 DATA 6,165, 70,2909, 95,240, 23,290,177, 95, 24,101 
159 DATA 95,170,290,177, 95,101, 96,144,215,169,184,153 
1609 DATA 534,167,2900,.76, 69,164,200, 24,177, 95,191, 95 
170 DATA 133, 38,200,177, 95,101, 96,133, 39,200,177, 95 
189 DATA 32,159,177,133, 95,132, 96, 36, 14, 48, 36, 16 
190 DATA 9, 32, 91,188B, 16, 7,165, 95,164, 96, 32,162 
200 DATA 187, 24,165, 95,105, 5,133, 95,144, 2,239, 96 
210 DATA 164, 96,197, 3B,208,227,196, 39,208,223, 96,160 
220 DATA — 0,177, 95,170,2900,177, 95,133, 21,154, 20, 24 
230 DATA 165, 95,105, 2,133, 95,144, 2,230, 96,197, 58 
240 DATA 208, 13,165, 96,197, 39,208, 7,165, 20,164, 21 
250 DATA 76,145,179,160, 0,177, 95,197, 20,208, 7,290 
260 DATA 177, 95,229, 21,240,213,169, 1,144, 2,169,255 
270 DATA 48,193, 16,203, 65, 82, B2, 65, 89, 32, 78, 79 
280 DATA 84, 32, 70, 79, 85, 78,196 

290 IF SC222908 THEN PRINT "HIBA A DATA SORBAN! ! ": END 
500 PRINT "OK!" 


Ez a változat az adott tömb legnagyobb elemét keresi meg, de könnyen módosíthatjuk úgy, 
hogy a legnagyobb elem helyett a legkisebb elemet keresse meg. 


A szükséges módosítások: 
a C858-ra a $10 helyett $30-at 


a C8B4-re a $30 helyett $10-et 
a C8B6-ra a $10 helyett $30-at 
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Hívás előtt az USR függvény címét is be kell állítani. 
POKE 785.0 : POKE 786,200 


A USR függvényt az utasításfüggvényekhez hasonlóan használhatjuk, és argumentuma 
egész típusú változó is lehet, pl.: 


X — USR(A96)xSIN(3) 


Próbáljuk ki a gépi kódú rutint az alábbi BASIC programmal: 


7 
0 REM titi PB1L. 336 r. ú 
da y 

vő ) 

100 FOKE 785,0:FOKE 786,200 

119 INPUT "TOMBMERET ";N 

120 DIM A(N) 

130 FOR I-1 TON 

1840 A(I)-RND(1) 110090 

150 PRINT A(1) 

168 NEXT 

170 FRINT 

180 PRINT USR(A) 


Az átkapcsolás a legnagyobb elem kereséséről a legkisebb elem keresésére és megfordítva: 


POKE 51288.48 ill. 16 
POKE 51380,16 ill. 48 
POKE 51382.48 ill. 16 


A program futtatása során figyeljük meg a végrehajtási sebességben történő változást valós, 
ill. egész típusú tömb esetén. (A különbség csak viszonylag. nagy méretű tömböknél érzékel- 
hető pl.: DIM A99(5000).) 7 
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9.4 A DUMP utasítás - a változók tartalmának kiíratása 

Az alábbi gépi kódú program, amelyet a kazettapufferbe helyeztünk, kiválóan alkalmas 
BASIC programok tesztelésére. Hívásakor kiírja a BASIC programban előforduló változókat, 
értékeikkel együtt. 


ZD REM XXXIX PB2. HE3EIIE 


alle: 

1909 : 033C az 828 3; KAZETTAPUFFER 

119 : OS3C A5 2D LDA $2D 

120 : O33E A4 2E LDY. $2ZE 5A VALTOZOKEZDET—-MUTATO 
130 : 0340 85 14 La STA $14 ; TAROLASA 

1409 : 0342 84 15 STY. $15 

150 : 0344 C4 30 CPY $30 ; OSSZEHASONLITASA A VALTOZOSZOVES 
155 s: ; MUTATOVAL 

160 : 0346 DO 02 E. 4t 

170 : 0348 CS 2F CMP $2F 

180 : 034A BO 18 Li BCS L5 JUGRAS A VEGERE ,HA KESZ 
199 : 034C 69 02 ADC §2 ;MUTATO A VALTOZOERTEKRE 
2900 : 034£ 99 01 BCC LZ2 

219 : 0350 CB INY 

220 : 0351 685 22 L2 STA $22 

2309 : 0353 84 25 STY $25 

2409 : 0555 209 82 053 JSR L7 3A NEV KIIRASA 

250 : 0358 209 Bó 03 JSR L12 sAZ "sz" KIIRASA 

260 : 035B 8A TXA 

2709 : 035C 10 07 BPL L4 

289 : 035E 209 BF 03 JSR L13 zAZ EGESZTIPUSU VALTOZO KIIRASA 
290 : 0361 A4C 71 053 JMP L6 5UGRAS A FOCIKLUSHOZ 
309 : 0564 60 L3 RTS 

3190 : 0365 98 L4 TYA 

329 : 9366 5309 06 BMI L5 

350 : 0368 209 CF 05 JSR L14 5A LEBEGOPONTOS SZAM KIIRASA 
349 : O036B 4C 71 03 JMP L6 

359 : 036E 209 D8 03 L5 JSR LI6 3A FUZERVALTOZO KIIRASA 
360 : 0371 A? OD L6 LDA 4$ií3 ; KOCSI VISSZA 

370 : 0373 29 D2 FF JSR $FFD2 5 KIIRASA 

380 : 0376 A5 14 LDA $14 

3909 : 0378 A4 15 LDY $15 

400 : O37A 18 CLC 

410 : 037B 69 07 ADC §7 5 A KOVETKEZO VALTOZO 47 
4209 : 037D 909 Ci BCC LOB 

430 : 037F CB INY 

440 : OZBO BO BE BCS LO ; VISSZA A FOCIKLUSHOZ 
450 : 0382 AG 00 L7 LDY 4$O 

460 : 0384 BI 14 LDA ($14),Y ;5A NEV ELSO BETUJENEK 
470 : 0386 RA TAX 

4980 : 0387 29 7F AND $£$7F 

4909 : 0389 29 D2 FF JSR $FFD2 ; KIIRASA 

500 : 03AC CB INY 

5109 : OZBD Bi 14 LDA ($14),Y 5A KÖVETKEZO KARAKTER 
529 : 038F AB TAY 

538 : 0390 29 7F AND  $í7F 

549 : 0392 Fo 03 BERG L8 

5590 : 0394 209 D2 FF JSR $FFDZ2 ;KIIRASA 

560 : 0397 8A L8 TXA 

570 s: 0398 19 11 BPL L10 j;A TIPUS ELLENORZESE 
589 : 039A 98 TYA 

599 : 039B 30 0A BMI L9? 

600 : O39D A9 21 LDA  §"!" ; FUGGYENY "!" KIIRASA 
610 : O39F "26 DZ2 FF JSR $£$FFD2 

620 : O3AZ2 68 PLA 

630 : OZAZ 68 PLA 
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890 
709 
910 
920 
950 
940 
950 
9609 


989 

790 

10909 
1019 
1929 
1030 
1040 
1950 
1960 


054 
0547 
[/5dOA 
OZAB 
OSAC 
OSRE 
03BO 
03BZ 
03B3 
03B6ó 
0388 
OSBB 
O3BD 
O3BF 
03Cc1i 
05cs 
05C4 
[/51o£o] 
93C7 
05C8 
05Cc9 
o3Cc 
DSCF 
03D2 
osD5S 
03D8 
O3DB 
OSDD 
O3DF 
0SE1 
05E2 
0SE4 
05E6 
05E7 
03E?7 
03EB 
9g3ED 
0SEF 
05F2 
osFS 
0SFS 
03F7 
osF? 


4c 
A? 
Do 
78 
10 
Ag 
Do 
60 
20 
A7 
20 
A9 
DO 
Ag 
B1 
AA 
cs 
Bi 
AB 
sa 
20 
4C 
20 
20 
4c 
20 
Ag 
Bi 
85 
eg 
B1 
es 
88 
B1 
85 
Fo 
Bi 
20 
CB 
C4 
DO 
A? 
4C 


71 03 
25 L? 


L10 


L11 
ÜZ FE 
20 L12 
DZ FF 


00 L15 


stét 


95 B3 

D2 03 

A6 BB L14 
DD BDL15 
1E AB 

F7 03 L16 
02 

22 

25 


24 
24 


22 
26 
oA 
24 iz 
D2 FF 


26 
F6 
22 L18 
D2 FF L19 


JMP 
LDA 
BNE 
TYA 
BPL 
LDA 
BNE 
RTS 
JSR 
LDA 
JSR 
LDA 
BNE 
LDY 
LDA 
TAX 
INY 
LDA 
TAY 
TXA 
JSR 
JMP 
JSR 
J8R 
JMP 
JSR 
LDY 
LDA 
sSTA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
BEG 
LDA 
JSR 
INY 
CPY 
BNE 
LDA 
JMP 


A gépi kódú program BASIC betöltője: 


0 REM tttx PB3. 


p E 
2 A 


klsüsdl 


1099 FOR I:-828 TO 19197 


110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
240 
250 


READ 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


164, 2 
Tsa 
41,127,240, 
10,169, 33, 
37,208, 78,152, 16 
210,255,169, 32, 32,210,255,169, 61,208, 58,160 
34,179,2020,177, 34,168,138, 32,149,179 
3, 32,166,187, 32,221,189, 76, 30,171 
SZ2ÁZ, BÁGO, 2.477, SZ ÁZ3. SZLS6177, 34 


0,177, 
76,210, 


X:POKE I,X: 8594Xs 
45,164, 446,133, 20,132, 21,196, 48,208, 2 
47,176, 24,105, 2,144, 1,200,133, 34,132 
35, 35 
Sí 


21305. 54 82 


NEXT I 


"82 


L6 ; VISSZAUBRAS A FOCIKLUSHOZ 
kz ; EBESZTIPUSU VALTOZO 

L19 

EÜ 

vs ; FUZERVALTOZO 

L19 

HFFD2 — ;A KARAKTER KIIRASA 

ús. 

$FFD2 — ;URES KARAKTER KIIRASA 
egyi 

L19 ;KIIRAS 

40 AZ EBESZ TIPUSU VALTOZO 
($22) ,Y ;ALSO BYTE 

($22) ,Y ;FELSO BYTE 


$B395 — ;ATVALTAS LEBEGOPONTOSSA 

L15 ES KIIRAS 

$BBAG — ;A LEBEGOPONTOS VALTOZO BETOLTESE 
$BDDD  ;AZ ASCI1-FUZER ATVALTASA 

$ABIE — 3;KIIRASA 


L18 $ FUZER , FELSOVESSZO KIIRASA 
42 

($22) ,Y ;A CIM (FELSO BYTE) 

$25 

($22),Y FA CIM (ALSO BYTE) 

$24 

($22) ,Y 5 HOSSZ 

$26 

L18 

($24) ,Y 3A FUZER KARAKTEREINEK 


$FFD2 3 KI1IRASA 


$26 $A FUZER VEBE 
L17 

4322 ;FELSOVESSZO 
$FFD2 3KIIRASA 


39158, 16, 7, 52,191 


GÁL S, S. 9AÁ5Z; 48. ős 32ZZOT, 34 76 


53, 52.216, 5 


,169, 


13, 32,210,255,165, 20 


1, 24,105, 7,144,1793,200,176,199,160, 0 


0,170, 


41,127, 32,210,255,220,177, 20,168 
3, 32,210,255,138, 16, 17,152, 48 
32,210,255,194,104, 76,113, 5,169 


ság i09 SOSZOB Za 9832 
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260 DATA 133, 36,136,177, 34,133, 38,240, 19,177, 360, 32 
270 DATA 210,255,200,196, 38,298,246,169, 34, 76,210,255 
280 IF SC320988 THEN PRINT "HIBA A DATA SORBAN..!!":END 
290 PRINT "OK...!!" 


Futtassuk le az alábbi programot: 


0 REM sétát PBA. 463666 

1. : 

2: 

100 A-5 

119 DEF FNX(Y)—-SIN(Y) £COS(Y) 
129 C$-"PROGRAM" 

130 B/5--—-101 

149 sYs8a28 


A futtatás eredménye: 


AE 5 

X ! 

Y5s0 

C$ — "PROGRAM" 
B9 s —101 


A SYS 828 utasítás hatására megjelennek a képernyőn a BASIC programban szereplő 
változók. Természetesen közvetlenül, parancsüzemmódban is meghívhatjuk a rutint. Ha egy 
programot futás közben megszakítunk, a SYS 828 utasítással kiírathatjuk a változókat, majd 
CONT utasítással folytathatjuk a program futtatását, ami nagyon hasznos a BASIC program 
tesztelési fázisában. 

(A képernyőn a változó neve mögött kiírt felkiáltójel arra utal, hogy ez a változó függvénydefi- 
nícióban szerepel.) 
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9.5 A módosított PEEK függvény 


A következő gépi kódú program megkönnyíti a hozzáférést a Commodore 64-es RAM terüle- 


téhez. A módosított PEEK függvénnyel a karaktergenerátor területéről is tudunk olvasni. 


A $A00-tól $BFFF-ig (40960, 49151) és a $E000-tól $FFFF-ig (57344, 65535) terjedő területek 
a tárban kétszeresen foglaltak: itt található a BASIC ROM, ill. a Kernal ROM, vagy kétszer 8K 
RAM. Ezt a 16 kbyte-os területet a BASIC mégsem használhatja minden további nélkül. 
Minden erre a területre vonatkozó POKE utasítás a RAM területre ír, ugyanakkor minden 
idevonatkozó PEEK utasítás a bekapcsolt ROM területről olvas. Helyettesítsük a PEEK függ- 
vényt egy olyan saját USR függvénnyel, amely a ROM területről olvas. Mielőtt a tárcím 
tartalmát kiolvasnánk, átkapcsoljuk ezt a területet RAM állapotra, majd olvasás után vissza- 
kapcsolunk ROM állapotra. A karaktergenerátor a $DO00 tárcímtől a $DFFF tárcímig terjedő 
területen található. Ahhoz, hogy innen olvasni tudjunk, meg kell vizsgálni a tárcímet, hogy 
beleesik-e ebbe a tartományba. Ha igen, átkapcsolunk RAM állapotra, majd a tárcím tartal- 


mát kiolvasva ismét visszakapcsolunk. 


BD REM 363636 
als 

va. § 

100 : 

119 : 033C 
120 : 033C 
130 : 033C 
199 : 035C 
200 : OS3C 
2190 : 035E 
2209 : OSSF 
230 : 0341 
240 : 0342 
250 : 0345 
260 : 0347 
261 : 0548 
262 : 034A 
263 : 034C 
264 : 034E 
265 : 0350 
270 : 0352 
280 : 0554 
290 : 0555 
300 : 0357 
310 : 0358 
320 : 035A 
330 : 035€ 
3409 : 055E 
350 : 035F 
360 : 0560 
370 : 0562 
380 : 09363 
398 : 9364 
400 : 09366 
A10 : 0567 
420 : 0369 


A fenti kis gépi kódú rutint a 828-as címtől kezdődő kazettapufferbe helyeztük. Betöltés után 
az USR vektor címét át kell állítani 828-ra: 


F85. 


369tat at 


F7:B7 


15 


14 
AZ B3S 


RAM 


POKE 785, 828 AND 255 
POKE 786, 828/256 


$14 
$B7F7 
$B3AZ2 
828 
ADR 
ADRt1 


FACADR 


ADR-(t1 


ADR 
YFAC 
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3 EGESZ-CIM 


3 KAZETTAPUFFER 


5AZ EGESZ-CIM TAROLASA 


:A FAC ATVALTASA CIM FORMATUMRA 
5A KONFIGURACIO TAROLASA 
;KISEBB-E,MINT A $DO20 

; NAGYOBB-E, MINT A $EX00 

;A KARAKTERGBENERATOR KIOLVASASA 
3A RAM KIOLVASASA 

jA TARKONFIGURACIO BEALLITASA 


3EGY BYTE OLVASÁSA ES 
; TAROLASA Y-BAN 


5A KONFIGURACIO VISSZATOLTESE 


3A CIM VISSZATOLTESE 


ES KONVERTALASA 


Azoknak, akik nem programoznak gépi kódban, ismét közöljük a BASIC betöltőprogramot, 
amely egyben az USR vektor mutatóját is átállítja. 


B REM téttittt PBO.  dtátáédt 
1: Azt 

2 

100 FOR I-828 TO 875 

110 READ X:POKE I,X:SzStX:NEXT 

120 DATA 165, 20, 72,165, 21, 72, 352,247,183,165, 1, 72 
150 DATA 165, 21,201,208,144, 7,201,224,176, 5,169, 49 
140 DATA 44,169, 52,129,133, 1,160, 09,177, 29,168,194 
150 DATA 133, 1, BB,104,133, 21,104,135, 29, 76,162,179 
160 IF S£25085 THEN PRINT "HIBA A DATA SORBAN. .! ! ": END 
170 POKE 7853,82BAND25S5S:POKE 786,828/256 

180 PRINT "OK..!!" . 


Az alábbi mintaprogram az USR függvény segítségével visszaadja a karaktermátrix tetszőle- 
ges elemét. 


B REM ttixx PB7. tiXK 

1 : 

ző 

100 CG-1314096 

110 A-(PEEK(53248424) AND2) 41024 

120 INPUT "A KARAKTER KEPERNYO KODJA"3B 
130 FOR I51i TO 7 

140 PRINT I ,USR(CGtrAPBXB-A I) : NEXT 

150 GOTO 110 


A 110-es sor kiválasztja a karaktergenerátor alsó vagy felső felét, attól függően, hogy a 
nagybetű/grafika vagy kis-/nagybetű üzemmódra van szükség. 

Ha most a keresett jelet a képernyő bal felső sarkán beütjük, PEEK (1024) utasítással a kódot 
lekérdezhetjük. A gépi kódú rutin lehetővé teszi, hogy BASIC programunkhoz az alapálla- 
potban adott tárterületeken kívül 16 kbyte területet használhassunk adattárolásra. 
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9.6 Multiprogramozás a Commodore 64-esen 


A , multiprogramozás" fogalom eredetileg az adatfeldolgozás területéről származik és több 
program egyidejű futtatását jelenti, egy adott számítógépen. Milyen elven alapul a multiprog- , 
ramozás? 

A legnagyobb számítógép is egyszerre csak egy programot tud futtatni, a multiprogramozás 
tehát tulajdonképpen nem egyéb, mint ügyes trükk. 

Tegyük fel, hogy a számítógép azt a feladatot kapta, hogy egyszerre 5 programot futtasson. : 
Hogyan történik ez valójában? ; 
A gép elindítja az első programot, majd egy bizonyos idő elteltével (ez az idő általában a 
másodperc tört része) megszakítja ezt a programot, tárolja a változók aktuális tartalmát, és 
megkezdi a második program feldolgozását. Ugyanannyi idő elteltével ezt a programot is 
megszakítja, majd veszi a következőt stb. 

Amikor ismét az első programra kerül a vezérlés, a gép az első program változóinak tartalmát 
visszatölti a tárba, így a feldolgozást ott folytathatja, ahol az előző futásnál abbahagyta. Mivel 
az operációs rendszer ilyenkor a gépidőt megosztja az egyes programok között, mindegyikre 
az idő törtrészét szánva, ezt a módszert gyakran időosztásos (time sharing) programozásnak 
is nevezik 

Multiprogramozásra, bizonyos korlátozásokkal a Commodore 64-es is képes. A C64-esben 
tulajdonképpen mindig két program fut egyszerre: a BASIC program és az ún. megszakító- 
program (interrupt), amelyre a másodperc minden hatvanad részében kerül a vezérlés (ezt 
a folyamatot egy belső óra irányítja). A megszakítóprogram működése közben a BASIC 
program végrehajtása szünetel. A megszakítóprogram gondoskodik például a billentyűzet 
folyamatos lekérdezéséről. A megszakítási időket ügyesen felhasználhatjuk saját céljainkra. 
Megtehetjük pl., hogy minden ilyen időpillanatban a szövegpufferből egy karaktert küldünk 
a nyomtatóhoz, tehát miközben a BASIC program fut, a töredék időkben kinyomtathatunk 
egy szöveget. 

Bemutatunk egy olyan mintaprogramot, amely a töredékidőket arra használja, hogy minden 
tizedmásodpercben kijelzi az aktuális időt a képernyőre. A program a C64-es belső hardver- 
óráját használja. Természetesen gépi kódban készült, de szokás szerint mellékeljük a BASIC 
betöltőprogramot is. 


0 REM tért PBB. éttrte 


; Út 2 
86: 

190 : CBOB .F8B b 
119 : CS00 ; TIME, IDO KIJELZESE 

120 : CSO9 : SYS AD, "HHMMSS" , SZIN 

13530 : CBOG 3 

140 s: CBOD FRMEVL z $ADSE — ;A BASIC-KIFEJEZES BETOLTESE 
156 : C800 FRESTR Oz $B6AZ 

160 : CBO0 CHKCOM $AEFD — ;VESSZO KERESESE 

170 s: CBR0 CHRGOT  - $79 

180 : CBOY GETBVT  - $B79E — ;BEYTE-KIFEJEZES BETOLTESE 
190 : CBR0 ILLOUAN — z $B248B — §"ILLEGAL RURNTITY" 

200 : CS00 ADR - $22 

210 : CBOD COLOR z $2A7 : SZINTAR 

220 : CBOG VIDEO z §288 1A VIDEORAM FELSO RYTE-JA 
230 : CBAD TEMF z $FB 

240 : CBHOO JRA z $314 $ IR0-VEKTOR 

250 : CBOB PNT z $FB 

260 1: CBO0 IRGYVEC - $EAZL1 — ;IRG-RUTIN 

278 : CBO0 FARBE És $DBO0 — :SZINRAT 

289 : CBOR ZEHNTEL $DCOB — FVALOSIDEJU -RA 


299 : CBOB SEKUNDE  — ZEHNTEL 41 

300 : CBON MINUTE z SEKUNDE --1 

319 : CBOO STUNDE z MINUTE §1 

320 : CBGO TRIGGER  — STUNDE 43 $359/60 HZ 

330 : COO SET z TRIGGER §1 ;IDO/EBRESZTO BEALLITASA 
3409 : CBSVO 4- 4C800 

3509 : CBOR AD OE DC LDA TRIGGER 

3690 : CgO3 09 80 ORA $H/10000000. 5 590-HZ-ES MOD 
370 : CB89g5 BD BOE DC STA TRIGGER 

389 : CSBOB AD OF DC LDA.. SET 

399 : CBOR 29 7F AND $/iii11111 ;AZ IDO BEALLITASA 
4909 : CBOD 8D OF DC STA "SET 

410 : CBID 209 79 00 JSR CHRGOT ;5VAN-E TOVABBI KOD 
420 : CAIS FO 65 BEG CHGIER ;AZ ORA KIKAPCSOLASA 
aso : CB15 209 FD ARE JSR  CHKCOM 

440 : CB8I8B 20 9E AD JSR FRMEVL 5EGY FUZER BETOLTESE 
450 : CBIR 209 A3 B6 JSR FRESTR ;PARAMETER 

460 : CBIE C9 06 CMP  4$6 36 KARAKTER 

470 : CB2O DO 6B BNE ILL 3" ILLEGAL GUANTITY" 
480 :;: CS822 AG 09 LDY HO 

499 : CB824 Bi 22 LDA  (ADR),Y 

599 : CS826 38 ; SEC 

519 : C827 E? 39: SBC  §H"O" ; ATVALTAS HEX-RA 
529 : C829 E? B3- CMF 435 

539 : CSZR BO 68 BGCS IEC 

540 : CBZD 0A ASL 

Ss50 : CSZE gA nA ASL 

5609 : CEB2ZF 0A 48 ASL 

579 : CS839  gA ASL 

589 : Cg831 85 FB STA TEMP 

5979 : CS3S CB INY 

600 : CS34 Bi 22 LDA  (ADR),Y 

610 : CSB34 538 SEC 

629 : CS837 E9 30 SBC $"O" 

639 : CS839 C? 0A CMP HIDD 

6409 : CSZ3B BO 50 BCS ILL 

650 : CSZD 05 FB ORA  TEMP 

660 : CS3F DO 04 BNE  NOTNULL 

670 : CSB41 A? 92 LDA $7/10390000 4 $12 ; 12 

680 : CBS3 DO OF BNE SETSTD 

6909 : CB45 C9 24 NOTNULL CMP §H$24 

700 : CB847 BO 44 BCS ILL 

710 : C849 C9 15 CMP 0 $H$IS 

720 : CBAB 909 07 BECC SETSTD 

750 : C8B4D 58 SEC 

740 : CBSE FB SED 

750 : CBAF E? 12 SBC $$12 

760 : C851 D8 CLD 

770 : CBSZ 09 89 ORA $/100D0003  ;PM BEALLITASA 
780 : C854 8D OB DC SETSTD STA STUNDE 

7909 : C857 20 FD CB JSR GETS? 3A PERCEK BEOLVASASA 
899 : CSSA 8D gA DC STA MINUTE 

819 : CS5D 209 FD CB JSR GET597 

820 : CBS 5 8D 09 DC STA SEKUNDE 

gsza : CBS3 A? 09 LDA 40 

840 : CS8S5 8D 98 DC STA ZEHNTEL ;AZ ORA INDITASA 
858 : CBOB 209 79 00 JSR CHRGOT 

860 : CSOB FO OD BEG CHGIRG 

870 : CBOD 20 FD RE JSR  CHKCOM 

8980 : CS7B 29 9E B7 JSR GETBYT ;SZIN 

890 : C8S73 EG 10 CPX ttió 

9090 : CB75 BB 16 BCS ILL 

910 : CB77 8E A7 02 STX COLOR 3A SZINKOD TAROLASA 
929 : CB7A 78 CHGIRG SEI s; IR2-VEKTOR FELCSERELESE 
950 : CS7B AD 14 03 LDA IREÉ 

940 : CB7E 49 ni EOR 4. IROVEC " TIMIRO 

950 : 


cseg BD 14 053 STA IRO 
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960 

970 

980 

999 

1009 
1810 
10209 
1050 
1040 
1050 
1060 
1070 
1089 
10970 
1109 
1110 
1120 
1150 
1140 
1150 
1160 
1170 
1180 
11990 
1200 
1210 
1220 
12350 
1240 
1250 
1260 
1270 
1280 
1290 
1500 
1510 
1520 


1350. 


1540 
1350 
1560 
1370 
1580 
1590 
1490 
1410 
1420 
1450 
1440 
1450 
1460 
1470 
1480 
1490 
15090 
1510 
1520 
1556 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 


Med LL CEE LE A HEG GE E CE CE CEE CEE CK TEN CK DE CST NK CEN TE TENG TEN TEL TENG PEN TNNG CNN "NN NN TEN TEN? B NN CNN CN TENG NN TEN? HET NT SSE CST SL S STT SETS SOTET ENTSKTI 


csss 
c886 
cs88 
CSB8BB 
Cs8saCc 
Ccs88D 


ces9gg 
C892 
c893 
C894 
cs95 
C899 
C89B 
c89D 
CB9F 
CB8A1 
CsA4 
CS8A6G 
CBAB 
CB8AR 
CSAC 
CSAE 
C8SBO 
CSB2 
CB8BS 
CS8B4 
CB8B6 
C8B7 
C8B9? 
CSBB 
CSBE 
C8Ci 
CBC4 
C8C7 
CSCA 
C8SCD 
L8CF 
CBD2 
cCsDs 
cap5 
C8D6 
C8D8 
CSDB 
CBDC 
C8SDE 
CBSDF 
CBED 
CSEL 
CBEZ2 
CBES 
cses 
CSEB 
CSE? 
CBEB 
CBSEC 
CSEE 
CceF1 
C8F5 
ceF5 
c8F8 
C8éFB 
C8SFC 
CaSFD 
CSFE 
Cg90 
C901 


AD 15 03 
47 22 
8D 15 03 


58 
60 
AC 


A5 
ag 
A5 
48 
AD 
85 
Ag 
85 
Ag 
AD 
c? 
FO 
cs 
90 
29 
c9 
Fa 
FA 
18 
69 
D8 
Do 
Ag 
20 
AD 
29 
AD 
20 
AD 
09 
29 
68 
85 
68 
85 
4c 
48 
29 
4a 
4a 
4A 
4A 
18 
69 
20 
68 
29 
18 
69 
20 
AZ 
91 

AD 
99 
C8 
60 
C8 
Bi 

38 
E? 


40 BZ HL 


FB 


FC 


88 
FC 
oo 
FB 
6 
OB 
12 
11 
80 
oF 
7F 
2 
09 


b.2 á 


50 


02 


DC 


c8 
DC 
cg 
DC 
c8 
DC 


cs 


EA 


cg 


ce 


02 
D8 


; 
TIMIRE 


NULLUHR 
STDOUT 


PRINT 


FPRKINTi 


GET5S9 


LDA 
EOR 
STA 
CLII 
RTS 
JMP 


LDA 
PHA 
LDA 
PHA 
LDA 
STA 
LDA 
STA 
CDY 
LDA 
CMP 
BEG 
CMP 
BCC 
AND 
CMP 
BEG 
SED 
CLC 
ADC 
CLD 
BNE 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
ORA 
JSR 
PLA 
STA 
PLA 
STA 
JMP 
PHA 
AND 
LSR 
LSR 
LSR 
LSRK 
Ce 
ADC 
JSR 
FLA 
AND 
CLC 
ADC 
JSR 
LDA 
sTaA 
LDA 
STA 
INY 
RTS 
INY 
LDA 
SEC 
SBC 


IRG 4 1 
42 IRRVEC 7 TIMIRO 
IRO § 1 


ILLGUAN 


PNTt1 3A MUTATÓ TAROLASA 


VIDEO jA VIDEORAM (FELSO BYTE) 
PNT41 

no 

FNT ; MUTATO A VIDEORAM-RA 
450 ; 59.OSZLOP 

STUNDE 

$$12 

NULLUHR 

4$80 

STDOUT 5 AM 

$/Z1111111 

4$12 

STDOUT 


t$12 


STDOUT 

há 

PRINT zAZ ORAK KIJELZESE 
MINUTE 

PRINT ;A PERCEK KIJELZESE 
SEKUNDE 

PRINT zA MASODPERCEK KIJELZESE 
ZEHNTEL 

4 a" 

PRINT1 ;A TIZEDEK KIJELZESE 


PNT-41 

5A MUTATO VISSZATOLTESE 
PNT 
IROVEC GAZ IRO MEGVYALTOZTATASA 


;KIIRAS 
$7/111100200 


40" 
PRINTI 

47/1111 

arg" 

PRINTI1 

Her 

(PNT),Y  ;KARAKTER 


COLOR 
FARBESY  ;ES A SZIN 


(ADR) ,Y TIZEDES 


kra 
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1630 : C903 C9 06 CMF Hó 
1640 : C905 BO 8B6 ILL1 BCS ILL 
1650 : C907 XA ASL 

1660 : CJ08 XA ASL 

1670 : C9097 0A ASL 

1689 : CIBA 0A ASL 

16909 : C9IOB 85 FB STA TEMP 
1709 : CBD CB INY 

1718 2 -GYBE. B4-22 LDA (ADR),Y ;EGYSEGEK 
1729 : C910 58 SEC 

1758. 1 GY11 .EYV.58 SBC H"O" 
1749 : C?13 C9? 0A CMP HIG 
1759 : C915 BO EE BCS ILLI 
1760 : C917 05 FB ORA  TEMF 
177a : C9197 60 RTS 


A BASIC betöltőprogram: 


B REM itt POR. 9496 

p ök 

4 § 

109 FOR I:51299 TO 51481 

119 READ X:POKE I,X:5-StXtNEXT 

129 DATA 173, 14,220, 97,128,141, 14,220,175, 15,220, 41 
139 DATA 127,141, 15.220, 32,121, 0,249,101, 32,253,174 
149 DATA 32,158,175, S2Z,1653,182,201, 6,208,197,160, 0 
159 DATA 177, 34, 56,253, 48,291, 5, 176, 96, 10, 10, 10 
168 DATA 109,1353,251,299,177, 534, 56,253, 48,201, 19,176 
170 DATA 809, 5,251,2E€8, 4,169,146,20B, 15,291, 36,176 
189 DATA 68,291, 19,144, 7, 56,248,235, 18,216, 9,128 
199 DATA 141, 11,229, 32,253,200,141, 10,220, 32,253,200 
209 DATA 141, 9,2290,169, 0,141, .8,220, S2,121, 0,249 
219 DATA 13, 32,253,174, 32,158,183,224, 16,176, 22,142 
2209 DATA 167, 2,129,175, 28, S, 75,161,141, 29, 5,175 
2539 DATA 21, 5, 73, 34,141, 21, S, BB, 96, 76, 72,178 
249 DATA 165,251, 72,165,252, 72,175,1536, 2,1533,252,169 
258 DATA 0,1353,251,160, 39,173, 11,220,201, 18,240, 17 
268 DATA 201,128,144, 15, 41,127,201, 18,240, 97,248, 24 
270 DATA 195, 18,216,208, 2,169, 0, 32,217,200,173, 10 
289 DATA 229, 3532,219,299,173, 9?,220, 32,219,200,173, 8 
2998 DATA 229, 9, 48, 32,243,296,104,1553, 52,104,153,251 
309 DATA 76, 49,234, 72, 41,240, 74, 74, 74, 74, 24,105 
319 DATA 48, 32,243,200,104, 41, 15, 24, 05, 48, 532,243 
329 DATA 209,169, 58,145,251,173,167, 25153, 0,216,200 
359 DATA 946,200,177, 34, 56,255, 48,201, 6,176,134, 108 
340 DATA 10, 19, 19,135,251,20949,177, 34, 56,233, 48,201 
350 DATA 10,176,2538, 5,251, 96 4 

3609 IF S£232970 THEN PRINT "HIBA A DATA SORBAN... "! ! ": END 

5378 PRINT "OK... !!" 


A saját BASIC program elindítása előtt az órát a következő utasítással állíthatjuk be: 

SYS 51200 , "HHMMSS" , SZIN 
ahol a HHMMSS az óra pillanatnyi állását (óra, perc, másodperc), a SZIN pedig a kijelzés 
színének kódját (0-tól 15-ig) jelenti. Ha például 14 óra 30 perc 15 másodperc az óra pillanatnyi 


állása, és sárga színű kijelzést szeretnénk, a szükséges utasítás: 


SYS 51200, "143015" 7 
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Az óra kikapcsolása: SYS 51200. Az utasítás hatására ugyan a kijelzés szünetel, de az óra 
számlálása tovább folyik. A következő SYS 51200 utasítás hatására az aktuális idő ismét 
megjelenik a képernyőn. s á 


Most néhány tanács a , multiprogramozáshoz". 

A második job (munka) eisővel párhuzamos végrehajtására két lehetőség van. 

Az első lehetőség a megszakítóprogram felhasználása, amelyet a rendszer minden hatvanad 

másodpercben meghív. Ezt a megoldást használtuk a bemutatott órakijelző programban. 

A megszakítási vektor címét megváltoztattuk úgy, hogy az a Saját rutinunkra mutasson, 

amelyet viszont egy, az eredeti megszakító rutinra ugrással zártunk azért, hogy közben a 

szokásos és egyben szükséges billentyű-lekérdezés se maradjon el. 

A második megoldásban a saját rutint úgy írjuk meg, hogy az maga idézze elő a megszakí- 
tást. 

"Ha például egy szöveget akarunk kinyomtatni programfutás közben, a nyomtató BUSY 
vezetékét használhatjuk a megszakítás vezérlésére. 
Valahányszor a nyomtató készen áll egy karakter kiírására, ez megszakítást vált ki. A meg- 
szakító rutin elküldi a karaktert a nyomtatóhoz, végrehajtja a saját feladatát, majd visszatér 
a főprogramra. Amint a nyomtató készen van az elküldött karakter feldolgozásával, ismét 
megszakítás következik stb. A felhasználó az időosztást nem fogja érzékelni. Ahhoz, hogy 
valaki egy ilyen gépi kódú rutint el tudjon készíteni, nagyon alaposan ismernie kell a Commo- 
dore 64-es operációs rendszerét, amelyet ,A C 64 belső felépítése" című könyv teljes 
mélységében bemutat Olvasóinak. 
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9.7 A POKE utasítások és a nulláslap 


A programozás során az Olvasó biztosan tapasztalta, hogy mind a BASIC, mind pedig a gépi 
nyelven írt programokban gyakran szükség van bizonyos tárcímek tartalmára, vagy annak 
módosítására. Ezért ismertetjük a legfontosabb tárcímek rendeltetését: 


Cím 


0000-0001 


0043—-0044 


0045-0046 
0047-0048 
0049-0050 


0051-0052 
0055—-0056 


0115-0138 


0203 


Feladat 


Ha valamelyik vagy mindkét cím tartalmát módosítjuk (POKE utasítással), egy 
meghatározott tárterületet kitbekapcsolhatunk. 

A felhasználói tár, azaz a BASIC terület kezdőcímét tartalmazó tárcímek. A BASIC 
kezdet leolvasása: PEEK(43) t 256$PEEK(44). POKE utasítással tetszőlegesen 
módosíthatjuk a BASIC kezdetet. 

A numerikus változókat tartalmazó tárterület kezdete. Alapállapotban ez a tárte- 
rület a BASIC tár alatt helyezkedik el. 

Az indexes változókat tartalmazó tárterület kezdete 

Az indexes változókat tartalmazó tárterület vége 

A BASIC program füzérváltozóinak kezdete 

A BASIC RAM végcíme. Megváltoztatva tartalmukat, , megvédhetünk" bizonyos 
területeket a BASIC programtól (pl. gépi kódú rutinokat) és emellett szabadon 
rendelkezhetünk a $C000-tól $CFFF-ig terjedő tárterülettel. Pl. a POKE 550 : 
POKE 56,64 utasításokkal a BASIC RAM végét a $4000 tárcímre helyezhetjük. 
Ezeken a tárcímeken található a CHRGET rutin, amely a BASIC területről betölt 
egy karaktert. Ha BASIC bővítéssel akarunk dolgozni, ezt a rutint kell megváltoz- 
tatnunk. 

Az éppen lenyomott billentyű kódját tartalmazó tárcím. Ha ezen a címen 64 áll, 
egyetlen billentyű sincs lenyomva. 


KIEGÉSZÍTÉS 


Az alábbi két sor hiányzik a P. 71-es programból: 


3003 DV— 1 
3004 GOSUB 8000:GOSUB 8500 
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JEGYZET 


TOVÁBBI DATA BECKER KÖNYVEK 
A NOVOTRADE RT. KIADÁSÁBAN 


A Commodore 64 belső felépítése 


A könyv belülről világítja meg az Ön kedvenc számítógépét. Nél- 
külözhetetlen mindazok számára, akik a mikrogép rejtelmeinek 
mélyére akarnak ásni. A kötet a C 64-es minden szempontból 
alapos leírását adja. Teljes ROM listát tartalmaz részletes magya- 
rázatokkal felszerelve, így Ön kedve szerint tanulmányozhatja a 
BASIC interpreter, a kernal vagy az operációs rendszer működé- 
sét. Számos példát talál majd a gépi nyelvű programozásra és 
továbbiakat, melyek révén az Ön p. oogramozói munkája kelleme- 
sebb lesz. 


Gépi kódú programozás a Commodore 64-esen 


Azok számára íródott, akik már nem a BASIC nyelven, hanem a 
gyorsabb, a memóriát hatékonyabban kihasználó gépi kódban 
kívánnak programozni. A könyv kifejezetten a C 64-eshez íródott. 
Tanulja meg, hogyan működik a 6510-es mikroprocesszor a 
C 64-esen. A ROM rutinok hozzáférhetősége, [/O, BASIC bővítés 
stb. Tartalmazza 3 teljes program listáját: egy ASSEMBLER-ét, 
egy DISASSEMBLER-ét és egy nem mindennapi 6510 SIMULA- 
TOR-ét, melynek segítségével Ön valóban , látni fogja" működés 
közben a C 64-est. 


A VC 1541-es lemezegység programozása 


A könyv a 1541-es lemezegység minden titkára fényt derit. Az első 
fejezetekben a program-, a soros és a relatív file-okat, iII. az ezekkel 
történő adattárolás módjait tárgyalja. Ezután bemutatja a közvet- 
len elérésű utasításokat, a lemez felépítését, a DOS működési elvét. 
A részletesen kommentált teljes DOS listát az , inyencek" figyelmé- 
be ajánljuk. Szerepel a könyvben néhány hasznos segédprogram (a 
BACKUP, a COPY, a DIRECTORY stb.). Mindent egybevetve, 
a kötet a 1541-es lemezegység alapvető kézikönyve. 


SZÁMÍTÁSTECHNIKAI ÁRUHÁZ 


néven megnyitottuk. üzletünket. 


AZ ÁRUHÁZ SZOLGÁLTATÁSAI: 


4 számítástechnikai rendszerek komplex leasingje ] ! 

. 6 komplett rendszerek kulcsrakész átadása, betanítása [// 
$ meglévő szoftverek átírása 

$ oktatás — 6 olvasószolgálat 6 szaktanácsadás 


user kluboknak helyszíni 
dő biztosítása 
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